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ABSTRACT 

(Distribution  Limitation  Statement  No.  2) 


A  new  experimental  technique  was  developed  for  determining  loading  and  unloading 
stress-volume  paths  directly  from  gage  measurements;  theoretical  models  were 
foxcy luted  for  stress  relaxation  and  the  Bauschinger  effect;  Hu^oaiot  informa¬ 
tion  was  generated  from  impact  experiment*  uu  aluninum  alloys,  titanium  alloys, 
and  a  woven  quartz-phenolic;  and  the  new  experimental  technique  sad  Bans  thing* r 
calculations  were  applied  to  the  aluminum  alloys.  The  new  experimental  technique 
provides  for  measurement  of  complete  loading  and  unloading  paths  (in  f'  stress- 
particle  velocity  and  stress-volume  planes)  rather  than  the  discrete  h^ooiot  or 
release  points  previously  obtained.  The  technique  is  applicable  to  the  examina¬ 
tion  of  nonsteady -st ate,  nonisentroplc  flow,  yield  point  phenomena,  strain- 
hardening,  the  Bauschinger  effect  and  strain-rate  (or  stress-relaxation)  effects. 
The  technique  is  based  on  the  entire  stress  or  particle-velocity  records  obtained 
from  a  series  of  gages  embedded  in  a  specimen.  Four  stress  relaxation  models 
were  implemented  in  the  SRI  PUFF  wave  propagation  co?e,  and  computations  were 
made  to  obtain  representative  results.  Criteria  were  suggested  for  selecting  a 
model  based  on  "the  precursor  attenuation  and  separation  of  precursor  and  main 
wave.  The  Bauschinger  model  implemented  in  the  SRI  PUFF  code  exhibits  the 
smooth  unloading  adiabat  and  high  rarefaction  velocity  observed  in  our  experi¬ 
ments  on  6061-T6  aid  2024-T8  aluminum  alloys.  The  marked  differences  between 
the  wave  shapes  snd  attenuation  rate  from  the  Bauschinger  model  and  those 
obtained  with  the  usual  elastic-plastic  model  makes  use  of  the  Bauschinger 
model  imperative  if  unloading  and  attenuation  are  of  Interest.  Experiments  with 
T1-50A,  T1-6A1-4V ,  and  Ti-13Cr-llV-3Al  titaniu-  served  to  map  Hugonlots  from  15 
to  750  kbar,  indicate  Hug  on  lot  elastic  limits,  and  show  an  alpha  ■+•  omega  phase 
transformation  at  50  kbar  in  Type  50A.  Preliminary  experiments  on  a  three- 
dimensional  woven  quarts  phenolic  resulted  in  Hugoniot  data  from  10  to  200  kbar 
mi  Indicated  a  shock-wave  structure  that  <s  very  different  from  observed 
in  homogeneous  solids. 
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SECTION  I 
INTRODUCTION 

1.  Scope 

The  gross  features  of  shock  wave  propagation  in  solids  appear  to  be 
fairly  well  understood.  These  features  generally  include  an  elastic 
precursor,  a  main  (or  plastic)  shock  wave,  and  a  rarefaction  or  unloading 
wave.  The  simplest  and  most  coomon  model  incorporating  these  effects  is 
the  model  of  ideal  plasticity.  For  precise  quantitative  prediction  of 
these  waves,  however,  theoretical  calculations  based  on  the  model 
of  ideal  plasticity  are  inadequate.  The  behavior  of  real  materials  is 
modified  by  stress-relaxation  (time-dependent)  effects,  Bauachinger 
effect  (difference  in  load  and  unload  response),  a  nonlinear  transition 
from  elastic  to  plastic  behavior,  strain  or  work  hardening,  etc.  (These 
terms  are  explained  more  fully  later  in  this  chapter.)  Each  of  these 
effects  is  important  for  some  materials.  Each  leaves  its  imprint  on 
some  portion  of  the  wave  profile  and  leads  to  a  modification  of  the 
attenuation  of  a  short-duration  shock  pulse. 

The  main  objective  of  the  present  program  was  to  develop  methods 
for  characterising  rial,  rials  by  their  shock  propagation  behavior.  These 
characterisations  fall  into  two  major  categories: 

.  Rate  dependent:  stress  relaxation  effect. 

.  Rate  Independent:  Bauschlnger  effect  on  unloading  and  a 

nonlinear  transition  from  linear  elastic  to  plastic 
behavior  on  loading. 

Specific  objectives  were  to: 

.  Study  the  nature  of  stress  relaxation  effects  in  snook  waves. 

.  Investigate  unloading  or  Bauachinger  effects. 

.  Relate  shock  properties  to  quasi-static  and  acoustic  material 
properties. 

.  Improve  methods  to  experimentally  study  rate-dependent  and  rate- 
independent  effects. 

.  Develop  or  improve  theoretical  models  for  both  rate-dependant  and 
rate-independent  effects  and  implement  them  in  a  wave  propagation 
computer  code. 
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.  Develop  guidelines  for  ascertaining  the  relative  ionortance 
of  the  several  effects  studied. 

These  objectives  were  pursued  in  an  experimental  study  of  three 
materials:  aluminum  (2  alloyO,  titanium  (3  alloys),  and  a  woven 
quartz  phenolic.  The  theoretical  study,  which  was  directed  mainly 
to  the  aluminum,  led  to  the  exploration  of  five  computational  models, 
which  were  incorporated  into  the  SRI  PUFF  computer  code. 

The  two  main  developments  of  this  program  are  the  theoretical 
mod«u.i  implemented  in  the  SRI  PUFF  code  and  the  development  of  a  new 
method  for  obtaining  complete  loading  and  unloading  paths  frost  experi¬ 
mentally  recorded  stress-time  profiles.  These  two  topics  occupy  the 
Sections  II  and  III  of  this  report.  Sections  IV.  V,  and  VI  contain 
descriptions  of  each  material  studied.  In  the  materials  sections  the 
experiments  are  described,  the  date  analyzed,  and  comparisons  are  made 
with  the  theoretical  models. 

2.  Material  Behavior  Under  Study 

The  kinds  of  behavior  studied  in  this  program  fall  into  the  two 
broad  categories :  rate-dependent  ami  rate-independent.  The  rate- 
dependent  phenomena  ere  associated  with  an  apparent  softening  of  a 
loaded  material  with  time.  If  the  material  is  loaded  with  a  stress 
that  remains  at  a  constant  level  for  same  time,  there  is  an  inatantanaoua 
attain  followed  by  a  gradually  increasing  strain  as  long  as  the  load 
remain*:  this  response  is  called  creep.  Alternatively,  one  may  obaerve 
that  the  instantaneous  stress  required  to  produce  a  constant  strain  in 
the  material  gradually  decreases  with  time:  this  response  is  called 
stress  relaxation.  When  the  material  Is  loaded  at  different  strain 
ratea,  the  successive  states  describe  different  stress-strain  paths: 
this  behavior  is  referrsd  to  as  strain  rate  effects.  Stress  relaxation, 
creep,  and  strain  rate  effects  are  just  different (but  relatively  inter¬ 
changeable)  descriptions  of  the  basic  tlaw-dapsfadaat  phenomena. 

'*  The  term  ''creep"  is  usually  associated  with  very  long  time  intervals 
sad  slow  loading  rates.  However,  the  concept  of  time  dependent  in¬ 
creasing  strain  at  constant  stress  is  also  applicable  to  shock  loading 
ratea.  In  feet,  some  analytical  creep  functions  (such  as  Gilman  (Ref.  5) ) 
have  bean  successful!/  used  to  predict  time-dependent  phenomena  in  shocks. 


These  t tae-dependont  phenomena  lead  to  predictable  variation^  in  the 
shape  of  shock  waves.  A  come on  effect  is  the  attenuation  of  the  amplitude 
of  a  flat-topped  wave  or  a  precursor  with  distance.  Another  effect  is  the 
variation  of  wave  front  shape  with  propagation  distance,  particularly  a 
broadening  of  the  shock  front  and  general  rounding  of  the  stress-time 
profiles.  While  the  presence  of  this  latter  effect  way  suggest  tiae- 
dependence  of  the  Material  properties,  this  effect  is  not  conclusive 
evidence  of  time-dependent  Material  response.  Ti we- independent  Material 
properties  can  also  cauw  such  an  effect  to  occur. 

Tine-independent  phenomena  of  particular  interest  are  work  hardening, 
the  elastic-plastic  transition,  and  the  Bauschinger  effect.  The  term 
work  hardening  (or  strain  hardening)  refers  to  the  tendency  of  the  yield 
strength  of  a  material  to  Increase  as  the  material  la  strained.  The 
hardening  is  often  characterized  by  a  work-hardening  modulus  relating 
the  yield  stress  to  the  strain.  The  elastic-plastic  transition  ref era 
to  the  region  uf  the  stress-strain  curve  where  the  material  bahavlor  la 
not  llnaarly  elastic  nor  purely  plastic  but  is  a  mixture  of  nonlinear 
elastic  and  plastic.  In  a  material  such  as  aluminum  in  which  no  sharp 
yield  point  occurs  the  elastic-plastic  transition  describes  the  “gradual 
yielding"  observed.  This  transition  region  is  convex  upward  on  the  stress- 
volume  plane  and  therefore  leads  to  dispersion  of  compressions!  waves,  an 
apparent  decrease  in  the  Hugoniot  elastic  limit  *(H£L)  with  distance,  and  a 
nonsteady  transition  region  between  a  precursor  and  a  main  wave.  (These 
are  some  of  the  same  effects  usually  attributed  to  tine-dependent  material 
properties. ) 

The  Bauschinger  effect  refers  to  s  change  in  the  stress-strain 

relations  that  occurs  when  the  sign  of  the  stress  is  reversed  after 

partial  loading.  Usually  this  effect  is  interpreted  as  simply  a 

r«  >ction  in  yield  strength,  although  bulk  and  shear  moduli  nay  also  he 

affected.  The  present  study  of  shock  wave  propagation  has  indicated  that 

in  fact,  the  entire  shapes  of  the  stress-* 'rein  relations  may  cheap'  when 

unloading  occurs  after  shock  compression.  Because  the  Bauschinger  affect 

comes  into  play  only  cm  unloading  in  the  present  case,  it  does  not  modify 

wave  fronts.  Instead  the  effect  modifies  the  arrival  time  of  rarefaction 

waves,  the  attenuation  rate  of  strews  naves*  ux5  the  shape  of  the  "back, " 

*  The  BEL  is  the  mswimus  axial  stress  that  the  materiel  can  support  (la 
uniaxial  strain  aad  under  shock  loading  conditions)  with  s  linearly 
elastic  response.  Such  a  limit  of  elsstic  behavior  under  static  test 
conditions  is  referred  to  as  the  'proportional  limit.” 
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or  unloading  portion  of  the  waves. 

Hugoniot  data  say  be  considered  part  of  the  tj«e- Independent 
phenomena  of  interest  to  us  on  this  project.  A  Hugoniot  point  is  the 
final  equilibria*  state  (hence,  time- independent)  of  a  material  that  has 
been  traversed  by  a  steady-state  shock  wave.  For  convenience,  we  have 
adopted  the  rr—rm  practice  of  generalizing  the  definition  to  include 
any  approximately  steady-state  stress  wave,  such  as  the  gradually  rising 
stress  waves  seen  in  porous  materials ,  composites  and  rate-dependent 
aedia. 

Real  Materials  exhibit  complex  behavior  that  is  a  mixture  of  time- 
dependent  and  time- independent  phenomena.  Hence,  some  materials  may 
show  a  combination  of  all  the  above  effects. 

3.  Materials 

Three  materials  were  used  in  this  study  as  the  basis  for  theoretical 
model  development  and  Investigation  of  shock  properties.  The  primary 
material  was  aluminum,  *ith  preliminary  studies  being  performed  also  on 
titanium  and  a  woven  quartz  phenolic. 

Two  alloys  of  aluminum— 6061 -T6  and  202-1-T8— were  selected  especially 
to  study  stress  relaxation  phenomena.  On  the  basis  of  earlier  work,  it 
was  expected  that  the  2024-T8  would  show  significant  stress  relaxation 
and  that  6061-T6  would  not.  In  addition,  we  planned  to  investigate  in 
detail  the  unloading  behavior  of  these  alloys  because  of  its  relevance  to 
experimental  studies  «.  other  materials.  Considerable  information  on  the 
loading  behavior  of  these  alloy*  was  available  so  that  we  were  able  to 
dead  immediately  with  unloading  phenomena  and  precursor  decay. 

The  preliminary  study  of  titanium  ms  undertaken  to  nap  the  low- 
pressure  (uader  500  kber)  Hugoniot,  tr  look  for  possible  high-pressure 
phase  transitions,  to  investigate  strain-rate  sensitivity,  to  study 
release  eaves  -  M  attenuation.  Three  titanium  alloys  were  selected:  Ti- 
50A,  commercially  pure  titanium  all  in  the  alpha  phase;  T1-SA1-4V,  an  alloy 
with  mixed  alpha  and  beta  phases ;  sad  T1-! 3Cr-l  1V-3A1 ,  an  alloy  that  is 
entirely  beta  phase.  The  T1-6A2-V~  alloy  was  selected  because  it  is  a 
material  of  "tactical  importance  that  has  already  been  studied  at 
Intermediate  strain-rates,  Where  it  mxMbiled  strain-rsU  sensitivity. 

The  T1-50A  and  Tl~l3Cr-119-3Al  alloy*  were  chosen  to  study  independently 
the  behavior  of  each  of  the  constituent  phase*  of  the  T1-6A1-4V  alloy. 
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The  quartz  phenolic  was  supplied  to  SRI  by  the  Air  Force  Weapons 
Laboratory  for  a  preliminary  investigation.  Although  the  effort  wit! 
this  material  was  much  more  limited,  the  purpose  was  essentially  the 
sa ire:  to  perform  a  series  of  experiments  and  attempt  to  establish 

which  shock  phenomena  are  important. 


4 .  Background  on  Stress  Relaxation  Models 

Early  work  on  stres3-relaxation  was  presented  by  Malvern  in  195i  (Kof.  1). 
He  derived  basic  relaxation  equations  that  are  essentially  the  same  as 
those  ci  rently  used.  His  formulation,  which  is  for  e  rod  witn  stress- 
free  sides,  is 


&  = 

dt  St 


U) 


whe»*e 

U,(  ~  stress  and  strain  in  the  direction  oi  the  shock  motion 

E  =  Young's  modulus 

g  =  the  relaxation  function 

t  =  time 

Mai  vern  solved  a  simple  impact  problem  using 


K  =  k  CT  -  f(f)j  (2) 

where  k  is  a  constant.  This  model  is  one  form  of  the  standard 
linear  anelastic  model  described  by  Zener  in  1SM8  (Ref,  2).  In  Melvern's 
model  the  relaxation  time  is  proportional  to  1/k,  a  constant,  and  is 
there'  re  independent  of  stress  lev  1, 

In  1963,  Taylor  (Ref.  3}  performed  s  acr-'e*  of  impact  experiments  on 
Arrnco  iron.  The  results  showed  that  relaxation  was  very  rapid  at  high 
stresses  and  slower  at  low  stresses.  The  variation  of  precursor  amplitude 
with  distance  of  travel  was  independent  of  the  initial  impact  stress 
except  for  distances  less  than  2  am.  These  experimental  data  did  not 
correlate  well  with  predictions  cf  the  standard  model  that  usee  a  constant 
relaxation  rate  independent  of  initial  stress  level.  Taylor  constructed 
a  stress- relaxing  model  by  making  k  in  Iq.  2  a  function  of  the  square  of 
the  impact  velocity.  The  predict lore  of  this  model  mere  in  reasonable 
agreement  with  him  data. 

In  1964  Lubllaer  (Ref  -  w),  presented  a  general  diecuaaian  of  methods 
far  solving  wave  propagation  problems  In  rate-dependent  and  rate- tads  pendent 


materials.  He  noted  that  characteristic  lines  are  usually  curved  for 
i ate— dependent  materials,  and  for  both  types  of  materials  there  is  a 
discontinuity  in  slope  between  loading  and  unloading  characteristics. 

la  1965  a  basic  paper  on  the  formulation  of  a  dislocation  model  for 
stress  relaxation  was  presented  by  Gilman  (Ref.  5).  The  model  of  the 
stress  relaxation  term  1?  presented  as  \  ,  the  plastic  shear  strain 
r?te.  He  introduced 

f  =  bNv  (3) 

where 

N  58  the  number  of  dislocations  per  square  centimeter 
b  =  the  Burger's  vector 
v  =  the  dislocation  velocity 

and  then  derived  equations  for  N  and  v  from  the  available  experimental 
data.  These  equations  are 

N  =  (N  +  MV/  e"  (4) 

o  r 

v  =  v  e  To^T  (5) 

o 

where 

N  =  the  number  of  initial  dislocations 
o 

vq  «  the  maximum  velocity 

T  =  the  shear  stress 

M,  0  anu  T  -  constants 
o 

The  model  was  intended  to  be  applicable  to  both  creep  and  shock  front 
behavior.  Computations  showed  that,  according  to  the  model,  there  is  an 
incubation  time  during  which  dislocations  multiply  but  no  significant 
yielding  occurs.  Subsequently,  the  yielding  occurs  rapidly  for  a  time 
and  then  reaches  a  third,  or  equilibrium,  state  when  yielding  ceases. 

Taylor  (Ref.  6)  reanalyaed  his  data  of  1963  two  years  later  with  the 
aid  of  Gilman's  model  above.  He  ugmented  the  model  t  Include  work 
hardening,  using 

y  »  bNv  =  b(N  +  ay)  v  e~(ro  +  ^>/T  (6) 

'  o  o 

where 

y  -  the  plastic  shear  strain 
a, f0  =  constants 

0  =  a  work-hardening  coefficient 
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The  constitutive  equation  for  the  material  was  written  in  the  form 


<7  =  (X  +  2H)  c  ~  8/31*  y  (7) 

where 

A, I*  =  Lame's  constants 
cr,(  =  stress  and  strain 

The  first  term  on  the  right-hand  side  represents  elastic  strain;  the 
second  is  the  plastic  strain.  With  the  use  of  Sq.  6  for  y,  Eq.  «  became 
a  stress-relaxing  constitutive  relation.  With  this  equation  for  q  ,  the 
relaxation  time  decreases  exponentially  with  stress  and  therefore  has 
the  appropriate  form  to  fit  Taylor's  data  on  Armco  iron.  Taylor  considered 
only  the  rate  of  precursor  decay,  not  the  changes  in  tue  entire  wave  form. 

In  1965,  Dorn,  Mitchell,  and  Hansen  (Ref.  7)  presented  s  summary  of 
current  information  on  athermal,  thermally  activated,  viscous,  and  rela¬ 
tivistic  effects  associated  with  dislocation  mechanisms.  For  each  of  the 
first  three  effects  they  suggested  several  possible  mlcromeehanisms .  It 
seems  likely  that  at  relatively  lew  strain  rates  (<  100/sec)  thermally 
activated  mechanisms  govern  dislocation  velocity.  But  at  higher  strain 
rates  the  velocity  is  proportional  to  the  excess  of  shear  stress  above 
the  static  limit:  this  proportionality  suggests  a  viscous  damping  mecha¬ 
nism.  While  it  was  theoretically  predicted  that  dislocation  velocities 
could  approach  but  not  exceed  the  shear  wave  velocity,  there  was  no  experi¬ 
mental  evidence  to  support  this  view.  No  dislocation  velocities  had  yet  - 
been  measured  above  half  the  shear  velocity. 

Malden  and  Green  In  1966  (Ref.  8)  reported  results  of  an  experimental 
study  of  rate  sensitivity  in  6061-T6  and  7075-T6  aluminum,  annealed  Ti- 

6A1-4V  titanium,  and  several  other  materials.  The  testing  rates  ranged 
**3  4 

from  10  to  10  in. /in. /sec.  A  comparison  of  stress-strain  curves  derived 

3 

from  tests  up  to  10  in. /in. /sec  showed  no  rate  sensitivity  in  either 
aluminum  alloy  but  considerable  rate  sensitivity  in  titanium.  In  the 
titanium,  the  strain  rate  effect  was  described  by  equations  of  two  forms: 

<3  ~  °b  ~  ko  l0g  ^  (8) 
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(9) 


a  ~  a 


s 


=  k 


l 


Of) 


n 


where 

ff  ~  stress  at  a  given  strain 

n  =  the  static  stress  at  the  same  strain 
s 

£  =  the  strain  rate 

£  -  the  "static'*  strain  rate 

8 

n,k  =  const,  nts 

The  data  fit  the  second  form  best,  with  n  =  1/5.  The  corresponding 
forms  of  g  (see  Eq.  1)  are 


S  ~ 


k 

a 


'  <7s>/ff0 


(8a) 


g  =  k  (a  -  or  )6 

3  8 


(9a) 


where  the  k's  9nd  n  are  constants.  Both  of  these  forms  indicate  a 
o 

relaxation  time  which  is  very  short  for  high  stresses,  longe.  for  low 
stresses.  Equation  (8a)  is  reminiscent  of  Gilman's  model,  (Eq.  5),  while 
Eq.  9a  exhibits  a  time  constant  inversely  proportional  to  stress  to  the 
fourth  power. 

In  1966,  Ahrens  and  Duvall  (Ref.  9)  reported  some  stress  relaxation 
studies  in  Sioux  quartzite.  They  derived  a  complex  form  for  g  from 
their  data.  The  precursor  appeared  to  attenuate  linearly  with  distance 
In  the  rather  narrow  range  for  distances  which  they  used. 

Butcher  and  Munson  in  1967  (Ref.  10)  conducted  tests  on  1060  aluminum 
and  4340  steel,  both  of  which  are  known  to  be  rate-sensitive.  Results 
showed  precursor  decay  and  separation  of  the  precursor  and  main  wave.  In 
several  stress-time  records  there  was  a  dip  in  stress  between  the  two 
waves.  The  attenuation  appeared  to  be  approximately  exponential  with 
distance.  Approximate  theoretical  computations  of  precursor  decay  were 
made  using  several  possible  relaxation  models.  Best  result*  were  obtained 
using  Gilman's  model  with  plastic  shear  strain  rate  in  the  form 

<y  =  bNv  =  bN  (1  +  flfv)©  ^v  e  ^ 

O  O 


(10) 


In  1966  Johnson  (Ref.  11)  investigated  three  models:  the  standard 
anelastic  model,  Gilman’s  model,  and  a  model  suggested  by  Band  (Ref.  12). 
Johnson  provided  a  derivation  of  each  model  and  modified  them  appropriately 
for  application  to  a  material  with  a  specified  static  yield  strength.  His 
basic  equation,  corresponding  to  Eq.  7,  for  one-diiitenslonal  flow  is 

fir  * 4/3  p  it " 8/3  *  it  <n) 

where 

o'  -  a  -  p,  the  deviatoric  stress 
p  =  the  density 

|i  =  the  shear  modulus 

y  =  the  plastic  shear  strain 

The  form  of  Eq.  11  emphasizes  the  fact  that  only  the  deviatoric  stress  is 

being  relaxed;  the  pressure  component  follows  an  elastic,  rate- independent, 
law.  Johnson  showed  that  for  many  forms  of  y,  the  precursor  decay  could 
be  found  simply  from 


&  -  -  4/3  “  !?  (12> 

where 

( j  =  the  stress  at  the  precursor 

t  =  the  arrival  time  of  the  precursor 

y  *  plastic  shear  strain  evaluated  from  the  unshocked  state 

In  the  modified  Gilman  model  presented  by  Johnson,  dislocation 
velocity  is 


v  =  v  exp  (  -  T  /(T  "  Y/2)  )  (13) 

o  o 

where  Y  =  the  static  yield  strength.  Band's  model,  ns  presented  by  Johnson, 
has  a  form  identical  to  the  modified  one  of  Gilman,  except  that  the  number 
of  mobile  dislocations  is  given  by  a  set  of  simultaneous  equations.  These 
equations  express  rates  of  growth,  pinning,  and  annihilation  of  mobile  and 
total  dislocations. 
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In  .1967  Anderson  et  al.,  (Ref.  13)  conducted  impact  experiments  on  2024 
aluminum  and  polyethylene  and  measured  precursor  attenuation  in  the 
aluminum.  The  experimental  results  were  coopered  with  predictions  based  on 
four  models:  the  three  treated  by  Johnson  plus  a  new  two-parameter  model. 

The  new  model  was  based  on  the  constitutive  relations 

04) 
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where 

T  ,  T  =  relaxation  times 

l  a 

K(p)  =  the  elastic  modulus  function 

0^  -  the  Hugoulot  elastic  limit,  a  function  of  time 

*  the  Hugoniot  elastic  limit  after  complete  relaxation. 

This  model  was  formulated  to  provide  both  tor  the  phenomenon  of  precursor 
decay  and  for  separation  of  the  two  waves. 

In  1967,  Wilkins  (Ref.  14)  described  several  possible  stress-relaxation 
functions.  He  presented  typical  results  from  one-  and  two-dimensional 
wave  propagation  calculations. 

Historically,  the  first  .„atter  of  interest  was  the  rate  of  precursor 
decay.  This  could  be  measured  quantitatively  and  was  clearly  an  Indication 
of  strain  rate  effects.  Stress-relaxation  models  from  various  other 
applications  were  brought  in  to  explain  the  decay.  As  more  information 
beet me  available  from  dislocation  dynamics,  more  appropriate  models  were 
developed  to  predict  precursor  decay.  Interest  was  then  kindled  in 
describing  the  entire  wave  front:  precursor,  main  wave,  and  region  between 
these  waves.  At  present,  models  are  just  being  developed  to  represent  all 
these  phenomena. 


w 
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5.  Background  on  Rate-Independent  Models 

Attenuation  of  shock  waves  occurs  when  the  unloading  or  rarefaction 
portion  of  the  wave  overtakes  the  shock  front.  Therefore,  the  relative 
magnitudes  of  the  shock  velocity  and  rarefaction  velocity  govern  the 
attenuation.  Early  studies  of  attenuation  considered  only  a  hydrodynamic 
model.  In  later  studies,  which  are  discussed  below,  it  wan  presumed  that 

the  rarefaction  behavior  is  a  function  of  both  elastic  and  plastic  effects. 

The  groundwork  for  considering  elastic-plastic  behavior  of  materials 
was  laid  by  Mori and  (Ref.  15)  with  his  analysis  of  wave  propagation  in  rods. 
He  used  the  ideal  plastic  model  for  his  work. 

In  1960,  Al'tshuler  et  al.,  (Ref.  16)  used  piste  slap  experiments  to 
study  rarefaction  velocities  up  to  pressures  of  3  Mbar.  They  employed  the 
stress  attenuation  rate  as  a  means  of  measuring  the  rarefaction  velocity. 

Even  at  the  highest  stresses,  they  noted  the  presence  of  initial  elastic 
rarefaction  waves.  However,  they  disregarded  these  waves  and  concentrated 
on  the  slower-moving  plastic  rarefactions. 

Curran  (in  1963,  Ref.  17)  conducted  a  series  of  plate  slap  experiments 
at  lower  atress  than  Al'tshuler  et  al.  used  to  study  specifically  tL^  elastic 
rarefaction  waves.  His  results  showed  clearly  that  el  jtlc-plastlc  effects 
led  to  much  higher  attenuation  rates  than  predicted  by  hydrodynamic  models. 

He  was  able  to  match  «  e  attenuation  rate  in  computations  by  assuming  a 
large  (tenfold)  increase  in  yield  strength  during  compression. 

Barker,  Lund erg an,  and  Herrmann  (Ref.  18)  used  plate  slap  experiments 
up  to  20  kbar  tv>  determine  the  loading  and  unloading  stress-strain  relation. 
They  noted  a  small  strain  rate  effect  during  loading  and  a  significant 
Bauschinger  effect  during  unloading.  Even  at  the  low  stress  of  10  kbar, 
the  elastic  rarefaction  velocity  was  seme  5  percent  higher  than  the  initial 
loading  velocity.  Under  static  loading,  the  Bauschinger  effect  in  aluminum 
had  been  well  documented  by  Buckley  and  Entwistle  ie  1956  (Ref.  19).  In 
the  static  work  there  was  an  elastic  unloading  to  aero  street.  Reloading 
in  the  oppoelte  tense  followed  a  stress-strain  relation  with  a  much 
reduced  elope.  The  shapes  of  these  static  reloading  waves  appeared  to  he 
geometrically  similar  for  different,  yield  strength  levels. 
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Jones  and  Holland  (In  1964)  conducted  plate  slap  experiments  with  SAE 
1018  steel  in  both  the  annealed  condition  and  with  20  percent  cold  work 
(Kef.  20).  The  precursor  (and  hence  the  yield  strength)  was  about  half  as 
large  In  the  cold-worked  material  as  in  the  annealed:  this  was  interpreted 
as  evidence  of  a  strong  Beuschinger  effect. 

Further  evidence  that  static  .stress-strain  data  are  pertinent  to 
dynamic  studies  was  gained  by  Butcher  and  Canon  (Ref.  21)  in  1964.  They 
performed  plate  impact  tests  on  4340  steel  to  determine  the  loading  stress- 
strain  relation.  There  were  important  effects  of  work  hardening  and  same 
stress-relaxation  effects,  but  the  authors  concluded  that  the  static  and 
dynamic  constitutive  relations  could  be  taken  as  identical  without  serious 
error. 

In  1987,  Erkman  and  Christensen  (Ref.  22)  conducted  plate  slap  experi¬ 
ments  on  aluminum  at  110  and  340  kbar  to  study  unloading  velocities  and 
attenuation.  Calculations  were  made  with  the  ideally  plastic  model  and  with 
an  lastoplastic  model  in  which  shear  modulus  and  yield  strength  varied  with 
density.  The  best  correlation  w^th  experimental  attenuation  rates  was  obtained 
fay  resuming  a  yield  strength  that  increased  threefold.  A  sharp  step  in  the 
unloading  wave  (which  ia  predicted  by  the  elastoplastlc  model)  was  not 
observed  in  the  experiments. 

In  1968,  Barker  (Ref.  23)  presented  s  discussion  of  plate  slap 
experiments  in  which  a  more  refined  resr-surfsce  measurement  technique 
was  used.  The  data  led  him  to  the  formulation  of  a  Bauschiuger  model  in 
which  there  was  an  initial  elastic  release  to  aero  devlatoric  stress. 

Then  for  continued  unloading,  the  yield  stress  was  allowed  to  increase 
gradually  according  to  the  expression 

Y  *  4/3Y  (1  -  e"POQf  p)  (i«) 

o 

where 

Y  «  the  Initial  yield  strength 

Cp  *  the  plastic  strain  component 

Calculations  with  this  model  compared  well  with  experimentally  recorded 
wave  shapes. 

The  history  of  attenuation  studies  shows  a  gradual  realisation  of  the 
coaplexlty  of  rarefaction  waves.  First,  hydrodynamic  calculations  were 


used,  found  inadequate,  and  replaced  by  Ideally  plastic  models .  The 
next  step  was  to  construct  ad  hoc  models  that  would  exhibit  some  type 
of  Bauschinger  effect.  In  this  report  we  present  a  Bauschlnger  model 
in  a  general  form  that  should  be  applicable  to  a  wide  range  of  materials. 
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SECTION  II 


THEORETICAL  MODEL  DEVELOPMENT 

1.  Introduction 

Four  Models  for  stress-relaxation  and  one  Model  constituting  a 
Bauschlnger  effect  are  outlined  tn  this  section.  All  of  the  Models  are 
sufficiently  complex  that  it  is  necessary  to  iaplenent  then  in  a  wave 
propagation  computer  program  to  study  their  effects.  The  madels  were 
inserted  into  the  SRI  PUFF  code,  an  artificial  viscosity  code  originally 
developed  far  the  study  of  porous  Materials.  Those  i*  xJels  affect  only 
the  computation  of  deviatoric  stress ;  at  the  basic  program  remains  un¬ 
affected.  As  background  for  the  introduction  of  the  models,  the  nature 
of  the  code  is  presented  in  this  section;  the  models  are  then  desert bad • 

2.  Nature  of  the  SRI  PUFf  Computer  Cade 

a.  Introduction 

The  SRI  PUFF  code  is  a  program  for  analyzing  enu-dimeasional  wave 
propagation  caused  either  by  the  deposition  at  radiation  in  the  materials 
or  by  the  impact  of  two  materials.  The  code  contains  a  novel  integration 
scheme  for  solving  the  governing  equations  of  motion.  The  equations  of 
state  for  solid,  porous,  liquid,  and  gaaeous  materials  are  provided. 

In  the  present  project,  the  available  equation  of  state  routine*  mere 
augment*^  to  include  etreee-reJ  ~.xaticm  and  liana  chi  nger  efforts.  As 
background  for  the  discussion  of  theta  ef tecta,  brief  descriptions  of  the 
integration  procedure  and  of  the  equation  of  »tate  for  s  solid  are  given. 

b.  Integration  Scheme 

The  solution  procedure  for  the  governing  equations  of  motion  is 
called  the  method  of  artificial  viscosity,  with  this  method  no  disco*- 
tlnuou*  shock  fronts  occur,  but  a  shock  is  represented  oy  a  stress  wave 
front  aprusd  over  3  to  $  colls.  Hence,  the  spur  ».io*wi  of  cootinuous  flow 
are  applicable  throughout  the  flow  field. 

The  c  ntinueua  flow  equations  are  the  cne-dimoaslottal  Lmgrengian 
equations  of  motion.  Heat  aquations  are  reduced  to  a  foam  in  which  only 
first-order  derivatives  occur.  To  improve  accuracy  and  stability.  Integral 
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etatenenta  of  the  equations  are  used  in  preference  to  differential 
equations  wherever  possible. 

The  following  set  of  Lagrangian  equations  are  Merely  presented; 
they  were  derived  by  Richtwyer  (Ref.  24)  and  many  other  authors. 

X»  X  +  1/2  (U  +0,)  At  (velocity)  (17) 

X  o  o  1 

4 

Uj  «  0  ♦  ~  A  t  (acattntuu)  (13) 

“l  *  A'X  73"  At  ("888)  (19) 

E  *  E  +  R  (1/D  -  1/D  )  +  E  (energy)  (20) 

1  o  o  1  rad 

R^  «  F(E^  ,  D^  ,  ...)  (equation  of  state)  (21) 


where 

X  »  coordinate  location 

U  »  coordinate  velocity  f 

D  *  density 

E  *  internal  energy 

R  ■  total  aecbanical  streas 
Au  -  (9»/0PO  AX 

t  •  tiaw 

E^  »  internal  energy  added  hy  radiation 

X  »  cell  autee  (D  A  X) 

Subscript •  0  and  1  refer  to  flaws  t  and  t,  *  t  +  At.  The  ncnsubscripted 
R  end  D  value*  appearing  in  the  equations  ere  chwon  to  provide  an 
accurate  rapreaentati on  of  the  conservation  laws. 

For  convenience  in  visualizing  the  progress  of  the  c reputation, 
and  dietaacw-tlwv  (X  t)  plot  with  coordinate  points,  cells  between 
coordinates,  and  tie*  stapa  is  abeam  in  Fig-  1.  The  cowputationa  proceed 
tram  left  to  right,  one  coordinate  at  a  tine,  updating  coordinate 
location,  velocity,  density,  etc.,  to  the  new  tia»  t  .  (Order  of  the 
cwputctiona  ia  given  by  the  nuwbera  in  Fig.  1.)  The  Integration  scheaw 
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LAYOUT  AND  ORDER  OF  CALCULATIONS  IN  THE  SR!  PUFF  CODE 


used  in  the  SRI  PUFF  code  is  a  mixture  of  the  leapfrog  method  proposed 
by  von  Neumann  and  Rj.chtmyc.1  (Ref.  25)  and  the  two-stop  Le ‘C-Waudr»'f 
method  (Ref.  24''. 

In  the  leapfrog  scheme  the  basic  computation  cycle  proceeds  as 
foil tnrs : 

;;  >  *♦  e  r  **  i!  -*  x 

c  k  w  h  c  :: 

That  is,  density  is  computed  from  the  coordinate  position,  energy 
and  stress  from  density,  velocity  from  stress,  and  coordination  local 'on 
fro*  velocity.  The  cycle  is  then  repeated  in  succeeding  time  steps.  The 
natural  procedure,  as  used  in  the  leapfrog  scheme,  is  to  associate  X 
and  U  with  the  coordinate  points  and  to  associate  the  oenaity,  energy , 
and  stress  with  the  midcell'  points  (hence,  the  subscripts  c  and  m  in 
the  cycle  notation)-  The  widcell  quantities  are  also  associated  with  s 
time  1/2  &  t  ahead  of  the  X  snd  U  values.  Thus,  the  mid  cell  quantities 
are  evaluated  at  the  alfatep  location  i  the  X-t  plot  of  Pig.  1.  In 
the  teo-r*ep  Lax  Pondrcff  awthod,  all  quantities  ire  computed  at  both 
the  coordinate  sod  midcell  points.  Quantities  occurring  at  coordinates 


Y  - 


(and  full  time  steps)  are  treated  as  primary;  the  half step  (midcell) 
quantities  are  secondary  and  are  computed  by  more  approximate  equations. 

In  the  SRI  PUFF  code  the  basic  X  -D  -R  -U  -X  cycle  is 

c  m  m  c  c 

treated  as  primary.  In  addition  a  subsidiary  cycle  x  -D  -R  ~U  - 
r  J  mccm 

X  is  used  to  generate  cne  other  quantities  so  that  all  quantities  are 
ra 

available  at  both  coordinate  and  midcell  points.  The  main  advantages  of 
th  method  are  (1)  elimination  of  an  iterative  solution  for  stress 
usually  required  with  the  leapfrog  scheme  ^thereby  decreasing  computation 
time),  and  (2)  diminution  of  the  oscillations  in  the  stress  at  shock  fronts 
that  commonly  occur  with  the  Lax-TVendroff  method. 

c.  Equation  of  State 

The  equations  of  state  considered  here  relate  the  stress  in  a 

material  to  its  internal  energy,  density,  and  the  previous  state.  The 

* 

material  may  be  in  solid,  liquid,  or  gaseous  states. 

For  convenience  in  formulating  the  equation*  of  state  for  both  solid 
and  porous  materials,  the  stress  tensor  will  be  defined  as  the  sum  of  a 
pressure  and  a  deviator  stress  *-ensor.  The  pressure  is  defined  as 

P=i(S  +  S  +S)  (22) 

J  11  23  33 

where  the  S's  are  stresses  on  any  three  mutually  orthogonal  planes.  The 
deviator  stress  is  the  v  riation  of  any  normal  stress  from  the  average: 

SD,,  =  S.  -  P  (i  =  1,  2,  3)  (23) 

ii  ii 

For  the  one-dimensional  strain  case  to  be  treated  here,  the  stresses  can 
be  conveniently  taken  in  the  directions  of  principal  stresses,  so  that 
only  normal  stresses  occur.  Furthermore,  the  deviatoric  stresses  are 
simply  related  as  follows 

SD  »  SD  ®  -  —  SD  (24) 

22  33  2  ii 


*  The  code  also  provides  for  materials  that  are  Initially  porous.  Spallijg, 
separation,  and  recombination,  and  4 hermal  strength  reduction  are  also 
harJj.ed  by  the  code.  These  provisions,  which  are  not  of  direct  interest 
here,  are  discussed  in  Reference  26. 
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so  that  the  only  stress  quantities  to  be  computed  are  SD  and  P.  The 

11 

pressure  is  computed  as  a  function  of  two  or  more  of  the  other  thermo¬ 
dynamic  quantities.  The  deviator  stress  is  computed  from  a  stress-strain 
relation.  The  stress  is  then  found  as  a  simple  sum  of  and  P.  With 

this  separation  of  stress  in^o  two  components ,  the  development  of  an 
equation  of  state  requires  the  construction  of  two  relationships,  one 
for  pressure  and  one  for  deviator  stress. 

(1)  Pressure 

The  equation  used  here  for  pressure  is  of  the  form 

P  =  P(E, V)  (25) 

which  says  that  pressure  is  a  function  of  specific  internal  energy  and 
specific  volume  only.  The  thermodynamic  quantities  entropy  and  tempera¬ 
ture  are  not  considered  explicitly.  Equation  25  defines  a  surface  in 
E-P-V  space. 

An  equation  of  state  represents  equilibrium  states.  Therefore  as 
a  material  undergoes  gradual  changes,  such  as  heating,  compression,  etc., 
the  successive  states  describe  a  path  on  the  equation-of-state  surface 
if  there  is  no  heat  conduction,  stress  relaxation,  or  other  nonequilibrium 
process  occurring.  If  the  material  is  compressed  by  passing  through  a 
steady-state  shock  front  and  the  initial  and  final  states  are  equilibrium 
states,  then  these  states  lie  on  the  equation-of-state  surface.  These 
initial  and  final  states  are  connected  by  a  straight  line,  the  Rayleigh 
line,  which  lies  on  or  above  the  surface,  for  the  usual,  concave-upward, 
surfaces.  The  states  of  transition  within  a  shock  front  are  not  states 
of  thermodynamic  equilibrium  and  hence  do  not  necessarily  lie  on  the 
surface. 

Shock  experiments  lead  to  the  determination  of  a  Kugoniot  or 
Rankine-Hugoniot  curve  which  is  a  line  on  the  equation-of-state  surface. 
This  line  is  the  locrs  of  final  states  that  can  be  obtained  by  a  steady- 
state  shock  transition  from  a  given  initial  state  A  common  form  for  a 
pressure- volume  Hugoniot  is  shown  in  Fig.  2, 
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STRESS  OR  PRESSURE 


FIGURE  2  COMMON  FORMS  OF  PRESSURE  AND  STRESS  HUGONIQTS 
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During  compression  thei-  is  some  increase  in  internal  energy,  so 
that  the  Hugoniot  does  not  lie  in  a  single  P-V  plane. 

As  a  reminder  of  the  role  of  stress  in  the  compression  of  the  solid, 
consider  the  stress-volume  Hugoniot  of  Fig.  2.  During  compression  the 
stress  is  greater  than  the  pressure;  on  unloading,  the  stress  decreases 
rapidly  to  yielding  and  then  follows  a  stress  adiabat  below  the  pressure 
adiabat.  The  unloading  adiabat  lies  to  the  right  of  the  Hugoniot  for 
materials  that  expand  during  heating.  For  such  materials  less  internal 
energy  is  released  by  the  adiabatic  decompression  (expansion)  than  was 
absorbed  during  the  shock  compression. 

The  pressure  equation  of  state  for  a  solid  and  the  subroutine  for 
calculating  it  in  SRI  PUFF  are  essentially  the  same  as  those  in  PUFF  66 
(Ref.  27).  The  equation  of  state  is  described  by  two  analytical  equations 
(one  for  compression  and  one  for  expansion)  and  is  bounded  for  negative 
stresses  by  a  spall  criterion. 

The  equation  used  to  describe  compression  is  the  Mie-Griineisen 
equation 


P 


REF 


r  (V) 

V 


(E  - 


“REF 


(26) 


where 

Port-  and  *  a  point  anus  reference  curve  at  the  same 

specific  voltsas  V 

F(V)  «  the  Gruneiseu  ratio. 

Equation  26  has  been  derived  on  the  assumption  that  F  is  a  function 
of  V  only.  Equation  26  provides  a  means  for  extrapolating  the  informa¬ 
tion  of  a  known  P-V  relation  (such  as  a  Hugoniot)  to  other  values  of 
internal  energy.  Because  the  Hugoniot  is  the  P-V  relation  that  is  most 
likely  to  be  known,  the  computations  are  constructed  so  that  the  Hugoniot 
is  the  reference  curve  used.  The  Hugoniot  P-V  equation  is  presumed  to 
be  in  the  form 

P„  =  Cfi  +  Df?  +  SfJ3  (27) 

H 
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Equation  28  is  based  on  the  assumption  that  the  initial  internal  energy 
is  zero  and  that  the  Hugoniot  is  concave  upward.  In  general,  the  latter 
assumption  excludes  consideration  of  phase  changes.  Also,  the  relation 
is  strictly  true  only  if  the  stress  Hugoniot  coincides  with  the  pressure 
Hugoniot;  however,  at  high  pressures  there  is  usually  little  inaccuracy 
introduced  by  this  approximation.  With  the  aid  of  Eqs.  27  and  28,  the 
Hie-Grflneisen  equation  takes  the  following  form  in  the  program: 

P  -  (C/Lt  +  Dlf  +  Sua)*  jl  -  5*  j+  TpE  (29) 

In  the  computer  program  the  Gruneisen  ratio  at  initial  density 

is  taken  as  a  constant,  EQSTG.  Then  T  is  treated  as  a  function  of 
density  such  that  Tp  is  constant. 

At  a  constant  volume,  Eq.  29  is  a  linear  relation  between  pressure 
and  energy;  hence,  constant  volume  lines  on  the  equation-of-state  surface 
are  straight  lines.  The  Mie-Gruneisen  equation  of  state  is  used  for 
densities  greater  than  the  initial  density.  Thus  on  the  equation-of- 
stete  surface  the  straight  line  V  ■  Vq  is  the  boundary  between  the 
Mie-Gruneisen  equation  and  an  expansion  equation. 

The  expansion  equation,  which  is  unchanged  from  PUFF  66  (Ref.  27), 
meets  four  requirements: 

•  It  joins  smoothly  to  the  Mie-Gruneisen  equation  along  V  «  V  . 

•  It  expands  like  PV  ■  (y  -  1)E  at  large  expansions  (like  a  gas). 

•  It  provides  a  linear  relation  between  P  and  E  for  constant  V. 

•  It  accounts  for  the  partition  of  internal  energy  into  components 
for  kinetic  energy  and  for  intermolecular  bond  disintegration 
(sublimation) . 
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An  equation  that;  satisfies  these  requirements  is 


P  =  p 


where 


H  +  (F-  H) 


($T|e' 


1  -  exp 


|n  (i-po/p)po/pj 


(30) 


p  =  density 
Po  =  initial  density 
F  =  Gruneisen  ratio 

H  =  y  -  1  =  cp/cv  “  1  for  expansion  at  low  densities 
N  =  C/(Ifeop  ) 

D  O 

E  *  sublimation  energy 
S 

C  =  coefficient  in  Eq.  29,  the  bulk  modulus  at  low  pressures 


In  the  PUFF  66  manual  (Ref.  27)  a  value  of  0.25  is  suggested  for  H. 
The  sublimation  energy  as  defined  there  is  the  difference  between  the 
internal  energy  of  the  solid  material  at  ambient  conditions  and  the 
internal  energy  of  the  fully  expanded  vapor  at  a  temperature  of  absolute 
zero. 

(2)  Deviatoric  Stress 


The  deviatoric  stress  equation  takes  a  simpler  form  in  the 

PUFF  formulation  than  does  the  pressure  equation.  The  deviatoric  stress 

for  a  perfectly  plastic  material  is 

0 


SD 


P 


for  SD  |  <  |  Y 


(31) 


otherwise 

|sd|-  |  Y  (32) 

where 

p  »  the  shear  modulus 
p  •*  the  density 
Y  *  the  yield  strength 

Stress  relaxation  and  Bauschinger  effects  modify  the  deviatoric 
stress  computation.  These  modifications  are  dealt  with  in  the  following 
subsections. 
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3.  Stress  Relaxation  Models 


a.  Introduction 

Materials  subjected  to  shock  stresses  respond  in  a  manner  somewhat 
different  from  materials  subjected  to  quasi-static  loading.  We  have 
attempted  to  understand  and  to  characterize  some  aspects  of  the  shock 
behavior  through  the  use  of  time-dependent,  theoretical  models.  Attention 
was  focused  on  materials  with  no  phase  change  in  the  stress  range  being 
studied.  When  a  shock  wave  whose  amplitude  is  below  a  critical  over¬ 
driving  stress  traverses  such  a  material,  it  generally  is  assumed  to 
proceed  initially  at  the  elastic  sound  speed  as  a  single  shock  front.  As 
the  wave  progresses,  it  breaks  into  two  waves,  an  elastic  precursor  and 
a  slower  main  or  plastic  wave.  The  amplitude  of  the  precursor  may 
decrease  as  the  wave  proceeds,  eventually  reaching  a  steady-state  value. 
The  thickness  of  material  through  which  the  shock  /e  progresses  before 
the  precursor  reaches  its  steady-state  value  varies  from  material  to 
material.  For  some  materials  the  thickness  is  so  small  (less  than  1  mm) 
that  experimental  observation  of  the  effect  la  difficult;  for  others  it 
Is  very  large. 

Three  time-dependent  phenomena  of  the  shock  front  were  of  concern: 

•  Attenuation  of  precursor  amplitude  as  a  function  of  distance 
into  a  material. 

e  Degree  of  separation  of  main  and  precursor  wave. 

e  Attenuation  of  the  stress  amplitude  of  the  main  wave  and 
modification  of  other  state  variables. 

It  was  assumed  that  these  effects  are  caused  by  time-dependence  of  the 
yield  strength  or  deviatoric  stress  and  that  there  is  no  time  variation 
in  the  relationship  between  volume  and  hydrostatic  pressure.  All  of  the 
theoretical  models  we  employed  are  based  on  the  assumption  that  the 
deviatoric  stress  may  exceed  two-thirds  the  static  yield  strength  for 
brief  periods  of  time.  Following  the  passage  of  a  shock  front,  the 
deviatoric  stress  gradually  decays  back  to  its  static  limit. 

The  four  models  sre  introduced  by  first  considering  a  model  with  a 
sufficiently  general  form  to  encompass  all  of  the  others.  This  model  is 
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a  specification  of  the  6tress  relaxing  function  F  in  the  flow  relation 
presented  by  Johnson  (Ref.  11) 


I2 

where 

SD  =  the  Jeviatoric  stress 

H  *  the  shear  modulus 

p  =  density 

6  dy 

F  =  —  H  ,  the  relaxation  function 
y  *  plastic  shear  strain 

e  .  -2- 

j  SD  I 

In  this  general  model  F  is  given  by 

F  =  A_(£)  +  A„  (£)  (  t  -  t  )  +  A_(£)  (t-t  )2  +  .  .  .  (34) 

1  /  8  J  8 


=>  0  for  t  <  t 

a 

where 

2 

£  *  |SD|  -  -  Y,  the  excess  of  deviatoric  stress  above  yielding 

Y  =  the  yield  strength 
A «  functions  of  $ 
t  *  time 

t  *  arrival  time  of  the  precursor  shock  front 

a 

With  the  formulation  of  this  todel  we  can  new  discuss  sane  general 
results  obtainable  with  all  of  the  models.  The  deviatoric  stress  may 
initially  exceed  2/3  Y  in  the  shock  front  and  then  decay  gradually  from 
the  high  elastic  value  to  the  static  value.  Because  of  the  decreasing 

deviatoric  stress,  the  amplitude  of  the  elastic  precursor  also  attenuates 
as  the  shock  wave  proceeds  into  the  auiterlal.  The  first  term  of  £q.  34 
provides  for  attenuation  of  the  precursor.  The  second  wad  subsequent 
terms  provide  fin*  separation  of  the  precursor  and  twin  waves,  and  for 
details  of  the  wave  shapes.  The  simple  ideally  plastic  model  can  be 
represented  by  the  function  F  with  A  -  A_  ■  ...  *0  sod 

X  J 


'  5) 
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Because  A^  is  zero  there  is  no  precursor  decay.  With  as  in 

Eq.  35,  there  is  a  clear  separation  of  the  wave  fronts. 


Many  physical  mechanises  have  been  proposed  as  a  basis  for  the 
formulation  of  the  function  F.  Among  these  are  the  standard  anelastic 
solid  model  (Model  1),  several  dislocation  models,  and  a  varying  yield 
strength.  The  dislocation  models  considered  here  are  those  of  Band 
(Model  2)  and  Gilman  (Model  3)  as  modified  by  Johnson  (Ref.  11).  The  yield 
strength  model  (Model  4)  was  suggested  by  Anderson,  et  al  (Ref.  3).  We 
will  first  dlscuse  Model  1,  then  Model  4,  and  then  turn  to  Models  2  and  3. 


b.  Model  1 

The  first  and  simplest  “tress  relaxation  model  is  that  u*  the 
standard  anelaatic  solid.  It  is  basically  a  one-parameter  mathematical 
model  in  which  the  devistorlc  stress  80  is  allowed  to  relax  to  ita 
static  value  2/3  Y  exponentially,  with  an  adjustable  tine  constant. 
Examples  of  its  development  are  given  by  Zener  (Ref.  2),  Colaky  (Ref.  28), 
Johnson  (Ref.  11),  and  Duvall  (Ref.  29).  For  this  model  the  deviateric 
stress  satisfied  the  relations 
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1SD|-  2/3  Y 
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for  |SD{  >  2/3  Y 


and 


&D 
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for  jso|  £  2/3  Y 


(36) 


(37) 


•here  is  the  dovlatoric  stress  decay  ties  parameter  and  the 

derivatives  are  taken  at  Lagranglaa  coordinates.  In  Eq..  36  the  first 

term  on  the  right  gives  the  elastic  value  of  the  devistorlc  stress,  serf 

the  second  tern  provides  for  relaxation  to  the  atatic  value  2/3  Y.  For 

this  model  the  yield  strength  is  assumed  constant  and  T  ,  is  the  only 

rlx 

adjustable  parameter  in  the  model. 


The  current  value  of  the  devistorlc  stress  at  each  coordinate  is 
computed  from  Eqa.  36  and  37  in  the  PUFF  code.  The  finite  difference 
approximation  to  Eq.  36  for  the  case  where  )SD)  >  2/3  Y  and  Bp'dt  is 
constant  throughout  the  tine  interval  la: 
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Y  + 


(SD  -  ^  6  Y)  exp 
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(-£)* 


4"  4  0  Trlx  r 


3  0 


avg 


"ST 


exp 


("TrL) 

(38) 


where 

SD  ■  devlatnric  atr>  a*  at  beginning  of  the  time  step  of 
°  duration  At  and  density  change  A  D 

SD^  *  final  deviatoric  stress 

n  *  average  density  during  tine  interval 
svg  «, 

If  |SDJ  becomes  less  than  -  Y  or  changes  sign  during  the  tin*  interval, 
then  the  SD  -  t  path  must  be  broken  into  segments .  For  each  secnent  the 

correct  equation  (Eq  •  36  or  37)  is  used . 

An  alternate  physical  derivation  of  the  standard  anelastic  solid  can 
be  given  from  the  point  of  view  of  dislocation  dynamics.  For  this 
purpose  Eq.  36  is  rewritten  to  emphasise  that  the  third  term  represents 
the  plastic  shear  strain  rate  f  : 


asD 

'5T 


(38) 


The  plastic  strain  rate  la  related  to  the  number  of  anbile  dislocations 
the  velocity  of  these  dislocations  v,  and  the  Burger's  vector  b  by 


y  -  bv*  («©) 

m 

The  model  assumes  that  the  dislocation  velocity  la  governed  toy  phonon 
viscosity,  so  that 


v  » 


b 

* 


(T  - 


V 


(«1> 


where 

»  the  dislocation  damping  coefficient 

T  -  Y/2,  the  lattice  stress  that  must  be  exceeded  before 

b 

dislocations  can  move 
T  m  3/4  |SD|,  shear  stress 


By  combining  fiqa.  ^,~ugh  41  we  obtain 
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Comparison  of  Eqs,  42  and  36  shows  that  the  two  formulations  of  Model  1 
are  equivalent  If 


T 


rlx 


_JL_ 


(43) 


Model  1  is  the  only  one  of  the  four  relaxation  models  for  which  the 
precursor  amplitude  can  he  obtained  analytically  in  closed  form  from 
the  various  relaxation  parameters.  From  Zener  (Ref.  2),  the  precursor 
wave  amplitude  0  decays  in  time  according  to: 


where 

0 

o 

°HEL 
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(cr  - 
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°HEL) 


exp 


(-?„) 


(44) 


initial  amplitude  of  the  precursor 
Y  /  K  4  \ 

—  |  —  |  ,  the  Hugonlot  elastic  limit  or  final  amplitude 

of  the  precursor . 


A 


2M/3 

K+4#l/3 


K  m  bulk  modulus 
(i  -  shear  modulus 

Using  the  relationships 
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which  is  the  elastic  shock  velocity,  the  equation  for  the  precursor 
amplitude  decay  in  distance  can  be  shown  to  be 


0  -  o _  ♦  <0 

HEL  o 


0  )  exp  (-  — - ) 

HEL  T  „ 
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(45) 


where 

x  w  distance  into  the  material  from  the  impact  interface 

A’  .  M  /-.-.-fi.  ~  <« 

3  ^(K  7  4*1/' 3) 9 

from  either  equation,  it  is  evident  that  decreasing  the  parameter  T 

rl 

will  hasten  the  decay  of  the  precursor. 
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c .  Model  4 


The  next  model  to  be  discussed  is  i  two- parameter  model  similar  to 
that  of  Anderson  et  al ■  (Ref.  13).  It  identical  to  Model  1,  except  that 

the  yield  strength  is  allowed  to  vary  (the  yield  strength  is  constant  in 
Model  1).  Under  rapid  loading,  the  yield  strength  reaches  a  high  elastic 
value  and  then  decays  exponentially  in  time  until  it  reaches  its  initial 
value.  It  is  governed  by  the  following  equation 

Y  =  Y  until  SD I  =  |  Y 
o  I  3 


*  0 


where 


for  SD 


for  j  Sd| 
for  |  Sd| 


>  2/3  Y  and 

>  2/3  Y  and 

aC  2/3  Y 


SIGN  (SD) 

-  SIGN  (SD) 

(47) 


Y  *  static  yield  strength 


•r 

> 


yield  strength  time  parameter 


Meanwhile,  SD  obeys  Eq.  36  where  Y  in  that  equation  is  now  the 
current  value  of  the  yi.ld  strength  calculated  from  Eq.  47,  instead  of  the 
constant  value  as  in  Model  1.  In  Model  4,  therefore,  there  are  two 
adjustable  time  parameters,  one  directly  governing  the  deviatc»tc  ..tress 
decay  rate  (T^^) ■,  sad  another  governing  the  yield  strength  decay  rate 

(T  ),  the  latter  Also  indirectly  affecting  the  deviatoric  stress  de  ay. 

>' 


In  the  computer  program,  Eqs.  36  and  47  are  uf?od  to  calculate  current 
values  of  yield  strength  end  deviatoric  stress.  These  equations  caisaot 
be  solved  simultaneously  in  closed  for*  so  we  approximate  a  solution  to 
Eq.  47,  for  |  SO|  >  2/3  Y,  during  s  time  increment  At 


Y  •  Y  _  . 
f  old 


(V.  -  Y  )  ~  <2  -  ~) 

old  o  T  0  T 

y  y 


(48) 


29 
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where 


t  ~ 


‘old 


1  if  SIGN  (£  m  *  SIGN  (SD) 
a  constant  0  lf  SIGN  (£  p>  =  SIGN  (SD) 


yield  strength  value  at  beginning  of  time  step  t 


Y  =  yield  strength  value  at  t  =  At  + 


In  this  solution  we  have  used  the  approximation 


,  At.  ~  A 1 

exp  (-  “)  =  i  -  — 

y  y 


(49) 


which  is  valid  only 


At  <<:  T  (which  is  the  case  in  all  of  our  PUFF 

y 


calculations).  Inserting  from  Eq.  48  into  Eq.  38,  we  obtain  the 
approximate  solution  fc  the  deviatoric  stress  at  the  end  of  the  time 
step: 


SD  =  |  6  Y  +  (SD  -  |  6  Y  )  exp  (-  Al 
f  3  avg  o  3  avg  F  l 


T 

■%  vA 

3  odVg  A  t 


/  At  \ 

exi\rJ 


(50) 


where 


avg 


~  (Y.  +  Y  .  ,) 
2  f  old 


Models  1  and  4  are  implemented  in  the  subroutine  RELAX.  The  basic 
scheme  of  RELAX  is  as  follows:  a  tentative  value  for  the  deviatoric 
stress  is  obtained  by  using  the  nonrelaxati on  Eq.  37.  This  tentative 
value  and  the  initial  value  are  compared  with  2/3  Y  to  determine  if  the 
deviator  is  outside  the  elastic  zone.  If  not,  the  subroutine  returns 
this  tentative  value  as  the  new  deviatoric  stress.  Otherwise  the  t.ne 
during  which  the  deviator  remains  outside  the  elastic  zone  is  calculated 
and  this  time  value  is  used  to  relax  the  yield  strength  (for  Model  4 
only)  and  to  calculate  a  new  deviatoric  stress  using  Eq.  38.  This  new 
value  for  the  deviator  is  again  compared  with  2/3  Y  to  see  if  the 
relaxation  has  caused  tue  deviatoric  stress  to  renter  the  elastic  zone, 
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in  which  case  a  revised  relaxation  time  is  determined  and  used  to  re¬ 
calculate  the  relaxing  quantities.  The  subroutine  then  returns  with  the 
new  value  of  the  deviatoric  stres®  and,  for  Model  4,  the  revised  value 
of  the  yield  strength. 

The  results  of  a  series  of  representative  computations  for  Model  1 
in  the  SRI  PUFF  code  are  shown  in  Fig.  3.  Model  1  yields  no  distinct 
separation  between  the  precursor  and  the  main  wave  until  after  the 
precursor  has  "relaxed"  to  its  Hugonict  elastic  limit.  As  indicated  in 
Fig.  3,  there  is  a  gradual  rise  in  stress  from  the  precursor  to  the 
main  wave  peak.  The  precursor  decay  curves  in  Fig.  3  are  obtained 
explicitly  using  Eq.  41  and  they  appear  to  closely  match  the  precursor 
amplitudes  from  the  PUFF  calculations. 


FIGURE  3  STRESS  PROFILES  FOLLOWING  IMPACT  IN  A  MATERIAL  REPRESENTED 
BY  MODEL  1  (Simple  Aneiattic) 
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The  two-parameter  variable  yield  strength  model  (Model  4)  exhibits 
a  d1stinct  two-wave  structure,  and  a  noteworthy  result  of  the  model  is 
the  decrease  in  stress  immediately  following  the  precursor  and  before  the 
main  wave  front.  Although  it  has  not  been  possible  to  derive  a  closed- 
form  solution  for  either  the  precursor  amplitude  decay  or  the  depth  of 
the  trough  behind  the  precursor  in  terms  of  the  parameters  T  ar';  Tv> 
the  following  qualitative  information  can  be  obtained  from  Fig.  4:  For 


1.0  1.5  2.0  2.5 

DISTANCE  INTO  MATERIAL  -  cm 
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FIGURE  4  STRESS  PROFILES  FOLLOWING  IMPACT  IN  A  MATERIAL  REPRESENTED 
BY  MODEL  4  (Two  Parameter) 


32 


and  Eqs .  44  and  45  are  valid.  If,  on  the  other  hand,  Ty  is  held  constcr.*- 

and  T  varied  (compare  curves  1  and  2  or  4  and  7  in  Fig.  4),  the  results 

rlx 

show  that  a  decrease  in  T  ,  will  speed  up  the  precursor  amplitude  decay, 

rlx 

but  have  little  or  no  effect  upon  the  general  shape  of  the  shock  front. 
Because  no  exact  equation  for  precursor  attenuation  is  available, 
it  is  not  known  how  much  of  the  precursor  decay  was  caused  by  the  finite 
difference  nature  of  the  calculations. 

The  two-parameter  varying  yield  model  exhibits  some  of  the  effects 
desired  of  the  general  two-parameter  model  described  by  Eq .  34,  but  not 
all  of  them.  In  Model  4  the  effects  of  the  two  parameters  are  not 
separable:  both  affect  precursor  decay  and  wave  separation.  We  believe 
that  a  more  suitable  two-parameter  model  can  be  generated.  The  basic 
purpose  of  the  model  is  to  represent  a  material  with  two  important  stress 
relaxation  mechanisms.  In  real  materials  there  will  generally  be  a 
number  of  mechanisms  operating  and  any  two-parameter  model  will  be  a 
simplification  of  such  beh  avior,  invaded  to  represent  only  the  two  most 
important  mechanisms. 

d .  Models  2  and  3 

The  remaining  two  models  were  described  by  Johnson  (Ref.  11)  and  are 
based  on  dislocation  dynamics.  Model  2  (the  modified  Band  model)  and 

Model  3  (the  modified  Gilman  model)  both  use  Eqs.  39  and  40  of  the 

\ 

alternate  derivation  of  Model  1,  but  then  depart  from  Model  1  when 
relations  governing  the  dislocation  velocity  and  the  number  of  mobile 
dislocations  are  considered. 

For  dislocation  velocity,  the  following  equation  applies  for  both 
Band  and  Gilman  models: 


v  «  v  exp  [-B/(T  -  T  )]  *  v  exp  [-B/(|  SdI-  |  Y)  J  for  SD  >  2/3  Y 
m  b  m  4|2 


a  0  for  SD 


*  2/3  Y 


(51) 


where 

v  *  maximum  dislocation  velocity 
m 

B  <•  a  constant 
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The  mobile  dislocations  begin  to  move  when  the  shear  stress  exceeds 

T  (defined  following  Eq.  41)  and  increase  in  velocity  as  the  shear 
b 

stress  increases.  As  seen  in  Eq.  40,  the  velocity  is  directly  proportional 
to  the  relaxation  rate  of  the  deviator.  From  a  nhysi  ^1  standpoint,  the 
movement  of  these  dislocations  relieves  the  excess  shear  stress  in  the 
material,  and  the  dislocations  will  continue  to  move  until  the  shear 
stress  decreases  below  the  lattice  strength  or  until  they  become  pinned. 


The  differ  .ice  between  the  Band  and  Gilman  models  arises  from  the 
manner  in  which  N  ,  the  number  of  aiobile  dislocations  per  unit  volume  is 

Hi 

calculated  (see  Johnson  (Ref.  11),  pp.  27-33,  for  detailed  derivation). 

In  the  Band  model.  N  is  obtained  from  the  simultaneous  solution 

m 

of: 


dN 
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dt 


« «  wt  *  V 


.1  1  ,  „  v 

(T  +  T  *  Nm  v 
12  HI 


and 


dt 


Cg  $  <*t  "  V  -  f 
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(52. 
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»  total  number  of  dislocations  (mobile  and  pinned)  per  unit 
volume 

-  |sd|-  2/3  Y  -  |  (T  -  T  ) 

=  adjustable  time  constants 
*  other  constants 


In  Eq.  52  the  two  terms  on  the  right  side  represent  the  rate  at  which 
mobile  dislocations  are  created  (from  pinned  dislocations)  and  destroyed 
(by  being  pinned  or  Migrating  to  a  free  surface  or  void),  respectively. 
Similarly,  the  two  terms  on  the  right  hand  side  of  Eq.  53  represent  the 
rate  at  which  all  dislocations  are  being  created  by  a  Frank-Read  multi¬ 
plication  mechanism  and  destroyed  by  migration  to  a  free  surface  jT  void. 
To  use  this  model,  the  initial  dislocation  densities  (N^.  and  Nto>  must 
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be  specified,  as  well  as  Burger's  vector  (b),  the  maximum  dislocation 

velocity  (v  ),  and  the  adjustable  parameters  (T. ,  T  ,  €,  g,  and  B) « 
m  * 

Then  for  every  cycle  of  the  PUFF  -  code  calculation,  and  are 
incremented  for  each  cell  in  the  material  by: 


N'  =  N  +  Cg  |  (N  -  N  )  -  (—  +  £  )  Nj,,  &  t  (54) 

mm  ^avg  t  m  T,  T  m  v 

*  «  in 


N'  -  IL  +  [«  g  €  (H  -  I)  •;  I  -]At 
t  t  *avg  t  m  T  m  v 

«  in 


where 


N1  and  N'  =  values  of  N  and  N.  at  t  *  t  +  <£  t 
m  t  m  t  o 


£  »  1/2 1  SB'  +  SdI-  2/3  Y  =  1  SD  +  ~  ^  -2/3  V 

I  I  I  3  P  avg 


SD'  =  value  of  SD  at  t  *  tQ  +  A  t 


which  is  a  valid  solution  to  Eqs.  52  and  53  provided  that  N  and  N 

m 

change  by  only  a  small  fraction  during  one  time  step. 


In  the  Gilman  model,  N  is  determined  by 


N  =  N  (1  +  cry)  exp  (-  0  -y)  (56) 

m  mo 


where  C  and  0  are  constants.  The  mobile  dislocation  density  is 
increased  in  proportion  to  the  total  plastic  shear  strain  (y) ,  which 
can  be  obtained  from 


y.l/2  [in£ 

0„  4  <* 


where  pQ  *  initial  density  (before  shock  wave).  This  equation  holds 

only  during  initial  compression.  N  decreases  at  a  rate  proportional  to 

m 

itself,  to  account  for  loss  by  migration  to  a  surface  or  pinning.  To  use 
the  Gilman  model,  one  must  specify  the  mobile  dislocation  density  (N  ), 
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Burger’s  vector  (b),  the  maximum  dislocation  velocity  (v^)  and  the  adjust¬ 
able  constants  (B,  C,  and  0)  „  The  plastic  shear  strain  is  initialized  at 
zero  for  all  cells,  and  thereafter,  whenever | SdJ >  2/3  Y,  the  plastic  shear 
strain  is  increased  during  a  time  step  by: 


1/2  ifi-  -  3A  SD  -  3_  I  4  Jdg  _ 

0  4U  8fll3  ja 

” avsr  r  r 


Note  that  the  term  in  the  parentheses  on  the  far  right  hand  side  is 

just  equal  to  the  amount  bv  which  the  deviator  has  been  relaxed  during 

the  time  step,  since  with  no  relaxation,  A  SD  =  ~  ,  from  Eq.  37. 

j  P 

Therefore  the  total  plastic  shear  strain  at  any  time  is  just  equal  to 
3/(8 fi)  times  the  total  stress  relaxation  in  that  cell  up  to  that  time. 

This  value  for  y  is  used  in  Eq.  56  to  calculate  N  ,  which  is  then 
used  in  Eqs.  39  and  40  to  obtain  the  relaxation  for  the  following  cycle, 
which  in  turn  Is  used  to  update  y.  The  accuracy  of  this  iteration  is 
controlled  by  the  shortness  of  the  time  step. 

Both  Models  2  and  3  are  implemented  in  the  subroutine  BANDRLX, 
which  operates  in  a  manner  similar  to  that  of  RELAX  insofar  as  the 
determination  of  the  location  of  the  stress  deviator  (in  elastic  or 
plastic  zones)  and  calculation  of  the  time  during  which  stress  relaxation 
takes  place  is  concerned.  Because  of  the  iterative  nature  of  the  Band 
and  Gilman  schemes,  a  feature  has  been  instituted  in  BANDRLX  which  enables 
each  cycle  of  the  PUFF  calculation  to  be  broken  into  several  shorter 
time  steps  and  a  calculation  to  be  made  for  each  of  these  smaller  times, 
with  a  resultant  increase  in  accuracy. 

The  Band  and  Gilman  models  are  both  based  on  dislocation  dynamics, 
and  unfortunately,  this  io  a  field  in  which  little  is  known  quantitatively 
under  the  loading  conditions  of  interest.  There  is  little  or  no  experi¬ 
mental  data  for  determining  the  value  of  the  various  cislocation 

parameters  (such  as  v  ,  0,  C,  g,  etc.),  some  of  which  like  N.  and  N  , 

m  to  mo 

undoubtedly  depend  upon  the  history  of  the  material  specimen.  Therefore, 
there  is  at  this  time  no  sound  reason  to  expect  that  the  Band  or  Gilman 
models  will  describe  the  shock  phenomena  more  accurately  than  Model  4, 
for  example,  whose  parameters  are  without  real  physical  basis. 
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The  attenuation  rate  cf  the  precursor  can  be  predicted  analytically 
for  these  two  models,  and  in  fact,  the  same  equation  pertains  to  both. 

The  equa  ion  as  derived  by  Johnson  (Ref.  11)  as 

~  Mb  v  N  exp  C-B/(-?  SD  -  1/2  Y)  ]  (59) 

dt  3  m  mo  4 

This  equation  can  be  integrated  numerically  to  obtain  the  precursor 
s  pj’tude.  Obviously,  only  those  parameters  that  enter  Eq.  59  can 
influence  the  attenuation  rate. 

Models  2  and  3  exhibit  a  fairly  distinct  two-wave  shock  front, 

^ pending  to  a  large  extent  on  the  rate  of  dislocation  multiplication 

in  the  mater.al.  For  the  case  where  there  is  no  increase  in  the  number 

of  dislocations  (C  «  0  for  the  Gilman  model,  g  *=  0  for  the  Band  model), 

t.  e  shock  front  is  similar  to  that  of  Model  1  (see  Figs.  5  and  6):  a 

gradual  rise  in  stress  from  the  precursor  to  the  main  wave,  with  no 

significant  change  in  slope.  But  when  the  dislocations  are  allowed  to 

increase  in  number  (C  >  0  for  the  Gilman  model,  g  >  0  and  N  N 

to  mo 

for  the  Band  model),  the  shock  front  behi  d  the  precursor  flattens  out 
to  some  extent  before  the  arrival  of  the  main  wave,  and  thus  the  two-wave 
pattern  emerges.  For  the  PUFF  calculations  upon  which  all  of  the  curves 
in  Figs.  5  and  6  are  based,  the  following  values  for  the  \  irious  relaxa¬ 
tion  parameters  were  used,  as  suggested  by  Johnson  (Ref.  ll>.  For  the 
Band  model: 

C  »  0.9 

Tj  =  1  jlse. 

T  =4  /isec 

l 

For  both  Band  and  Gilman  models: 

B  *  1  98  x  10io  kbar 

v  *  3„ 22  x  10s  cm/sec 

m 

bN  «  5  cm~ 1 

mo 

The  values  for  the  other  parameters  are  shown  in  tie  figu.es.  In 
addition  to  the  effect  of  the  parameters  C  and  g  on  the  shock  front 
«pi>ecrance,  the  graphs  show  that  increasing  N  (in  the  Band  model)  will 
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FIGURE  S  STRESS  PROPttES  FOLLOWING  IMPACT  IN  A  MATERIAL  REPRESENTED 
aV  MODEL  2  (Band) 


increase  the  separation  of  the  two  waves  (this  is  reasonable,  since 

Eqs.  52  and  53  show  that  the  dislocation  multiple  ation  rate  is  also 

dependent  upon  N  -  h  ),  while  an  increase  in  (0  (for  the  Gilman  model) 
t  m 

will  have  the  opposite  effect  ((p  governs  the  rate  ol  decrease  of  the 
mobile  dislocation  density).  Qualitatively,  the  Band  and  Gilman  models 
exhibit  a  nearly  identical  shocL  front  appearance. 

For  both  of  these  atodels  the  finite  difference  calculations  have  a 
serious  effect  on  the  amplitude  of  the  precursor.  According  to  Johnson's 
simplified  analysis  (Ref.  11),  C  and  <p  in  Gilman’s  model  and  M  , 

T^,  T^,  t,  and  g  in  Band's  s:odsl  should  have  no  effect  ot  the  precursor 
decay.  In  Figs.  5  mu  6  it  is  evident  that  there  is  an  effect,  presumably 
caused  by  the  artificial  viscosity  and  the  finite  size  of  the  cells. 
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DISTANCE  INTO  MATERIAL - cm 


FIGURE  6  STRESS  PROFILES  FOLLOWING  IMPACT  IN  A  MATERIAL  REPRESENTED 
BY  MODEL  3  (GUttwi) 

e.  Implementation  in  the  Code 

In  the  current  version  of  the  SRI  PUFF  code  listed  in  Appendix  I, 
all  four  stress  relaxation  models  as  well  as  the  Bauschinger  model 
(Model  5)  are  set  up  to  run  through  the  entire  cycle  of  »ny  impact- 
induced  shock  wave:  compressive  loading,  unloading,  tension,  and 
reloading.  The  models  are  also  available  for  use  with  shock  waves 
caused  by  radiation  deposition,  although  no  verification  test  run  has 
been  msde.  A  condition  indicator  is  assigned  to  each  cell  in  the  PUFF 
calculation,  to  keep  track  of  whether  that  cell  is  currently  outside  of 
the  elsstic  zone  (|SD|>2/3  Y),  and  hence  undergoing  relaxation,  or  within 
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the  elastic  T-one  (|sd|£  2/3  if),  where  relaxation  is  not  applicable.  The 
stress  relaxation  parameters  are  read  In  for  each  material  along  with 
all  of  the  other  material  properties,  so  that  different  stress  d  viator 
models,  including  the  elastic-plastic  model,  the  Bauschinger  model,  and 
all  of  the  relaxation  models,  can  be  used  in  the  same  calculation  for 
different  materials.  In  addition,  two  significant  parameters  for  each 
model  are  selected  and  printed  out  in  the  periodic  time  edits  and 
histories,  along  with  the  other  shock  parameters. 

The  subroutines  for  calculating  the  deviatoric  stresses  for  the 
five  models  do  not  contain  any  COMMON  declaration:  All  required  informa¬ 
tion  is  brought  in  as  formal  parameters  in  the  calling  statement.  Thus 
the  subroutines  are  readily  transferable  to  other  types  of  artificial 
viscosity  codes. 

Few  each  of  the  stress  relaxation  models,  a  series  of  test  runs  has 
been  made  with  the  SRI  PUFF  code.  These  runs  arc  identical  within  each 
series,  except  that  one  or  more  of  the  relaxation  parameters  for  that 
model  are  varieo  to  determine  the  effect  of  the  parameter  on  the  calcu¬ 
lation. 

The  results  of  the  test  runs  show  that  all  four  model  arc  similar 
in  that  there  is  an  approximately  exponential  attenuation  'in  time  or 
distance  into  the  impacted  material)  of  the  precursor  wave  amplitude. 

But  beyond  that,  there  are  significant  differences  among  the  various 
models,  in  the  separation  between  the  precursor  and  the  main  wave,  and 
generally  in  the  shape  of  the  wave  front. 

f .  Criteria  for  Choosing  s  Stress  Relaxation  Model 

The  feature  of  moat  prominence  in  studies  of  stress  relaxation  often 
it  precursor  attenuation.  If  this  is  the  feature  of  main  interest  the 
model  should  be  chosen  first  on  the  basis  of  the  type  of  precursor  atten¬ 
uation  it  provides;  that  is,  first  choose  the  form  for  Aji^)  in  Eq.  34. 

The  form  for  Aj(£)  »sy  be  chosen  on  the  basis  of  measurements  of  precursor 
decay  or  from  hypothesized  dislocation  mechanisms.  For  the  latter 
cri  eria,  it  may  be  noted  that  only  the  variation  of  dislocation  velocity 
with  stress  level  appears  to  influence  precursor  attenuation.  Soam  camaor 
forms  for  Aj(£)  are  provided  In  Models  1,  2,  sod  3. 
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For  Model  1,  io  proportional  to  4  *=  SI)  -  2/3  Y.  The  relaxa¬ 

tion  time  is  independent  of  stress  level.  In  Models  2  and  3,  Aj(£)  varies 
as  e  so  that  large  stresses  decay  at  a  much  faster  rate  than  low 

stresses.  Other  possible  forms  for  A^(£)  may  be  found  in  the  literature 
cited  in  Section  1.4. 

After  the  form  of  the  precursor  attenuation  has  been  selected,  then 
the  wave  shapes  and  separation  can  be  considered.  TTjey  cannot  be 
predicted  analytically;  therefore,  they  must  be  determined  by  trial 
computations.  We  suggest  that  the  first  trial  should  be  made  for  the 
no-separation  case:  that  is,  with  ^(0  *  A^(  £)  «=  .  .  .  *  0  in  Kq.  34, 

This  is  the  automatic  form  for  Model  1.  In  Band's  model  this  can  be 
accomplished  by  letting  €  =  g  =  N  *=  0  and  by  making  T^  and  T  very 
large.  For  the  same  effect  in  Gilman's  model,  let  C  *  <p  *  0.  This 
first  calculation  provides  a  landmark  with  which  to  compare  the  desired 
results.  If  these  computed  results  are  inadequate,  then  the  arbitrarily 
set  parameters  in  Band's  or  Gilman's  model  can  be  give,,  more  realistic 
values.  Some  estimates  of  the  influence  of  these  parameters  were  presented 
in  the  previews  discussion  of  our  computed  results. 

4 .  Bau^chinger  Model 

The  Bauschingev  effect  refers  to  a  change  in  the  stress-strain 
relations  which  occurs  when  the  sense  of  loading  is  reversed  after 
initial  loading.  For  our  purposes  the  effect  causes  a  continuous 
variation  of  yield  strength  and  shear  modulus  from  the  point  »t  which 
lording  sense  harvges  to  the  next  change  of  sense. 

a .  Construction  of  the  Model 

The  recorded  stress  histories  derived  from  plate  impact  experiments 
have  usually  disagreed  with  calculations  baaed  on  the  Ideally  plastic 
model  n  three  ways:  (1)  the  sharp  yield  point  from  the  computations 
is  quite  gra  sal  in  the  experimental  data,  (2)  the  -harp  step  in  the 
computed  unloading  of  the  stress  hiatorv  is  almost  entirely  absent  in 
the  experimental  records,  and  (3)  the  attenuation  of  peak  stress  is 
significantly  faster  in  experimental  observation  than  i  predicted  by 
computed  histories.  These  discrepancies  led  us  to  the  formrlatton  of  a 
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Bauschinger  model  to  account  for  the  most  significant  effects.  The  model 
is  a  strain-rate  independent,  elastopl astic  model  with  an  unloading 
stress-strain  relation  that  can  be  very  different  from  the  loading  relation. 
Specifically,  the  model  provides  for  computation  of  the  deviatoric  stress 
(total  stress  minus  pressure)  using  a  shear  modulus  that  varies  smoothly 
from  some  initial  value  down  to  the  strain-hardening  modulus.  The  values 
of  initial  modulus,  strain-hardening  modulus  and  the  manner  in  which  the 
modulus  varies  between  these  two  are  not  necessarily  the  same  for  loading 
and  unloading. 

In  constructing  the  Bauschinger  model  it  was  desirable  to  produce 
a  form  that  would  be  general  enough  to  be  applicable  to  many  materials 
and  would  be  readily  usable  by  other  investigators.  With  these  needs 
in  mind,  the  following  guidelines  were  adopted  as  requirements  for 
development  of  the  model: 

•  As  far  as  possible,  the  form  should  be  comparable  to  those 
developed  by  other  investigators. 

•  The  form  should  be  extendable  to  other  stress  levels. 

•  The  data  should  be  closely  represented. 

•  A  physical  basi  ’  or  interpretation  should  be  available  for 
the  parameters  in  the  analytical  relation. 

The  data  of  Buckley  and  Entwistle  (Ref.  19),  and  the  analytical  form  of 
Barker  (Ref.  23)  and  of  Erkman  and  Christensen  (Ref.  22)  were  useful  in 
constructing  our  model.  To  make  the  mc^el  equations  extendable  to  other 
stress  levels  it  was  necessary  to  separate  the  stress-volume  relationship 
into  pressure-volume  and  deviatoric  stress-volume  equations.  Only  th<. 
deviatoric  stress  equations  were  modified  by  tho  Bauschinger  effect.  For 
selecting  the  particular  equations  of  unloading  stress  vs.  strain  and 
the  loading  transition  at  yielding,  we  closely  followed  our  data  of 
Section  IV  for  2024  and  6061  aluminum.  The  parameters  required  for  the 
model  are  mostly  moduli  and  yield  strengths  and  hence  are  easily  inter¬ 
preted  physical  quantities. 
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The  pressure  volume  relationship  js  given  in  the  usual  form  for 


the  PUFF  rode: 


P  =  C  p  D  jf  +S/f 


where 


U  =  V  /V  -  1 
o 


The  constants  C,  D,  and  S  are  represented  by  EQSTC,  EQSTD,  and 
EQSTS  in  the  code.  The  stress  deviator  SD  is  given  by 


SD  =  Sf)  +  4- 
o  3 


/'• 


where 

SDq  =  the  value  of  deviatoric  stress  at  the  time  corresponding 
to  the  lower  limit  of  the  integral 
M  k  a  shear  modulus 

If  | SD |  exceeds  2/3  Y,  then  j  SD |  is  set  to  2/3  Y,  The  form  of  the 
required  function  of  deviatoric  stress  versus  volume  is  shown  in  Fig,  7 
for  2024-T8  aluminum  used  on  this  project.  This  form  was  achieved  by 
varying  the  shear  modulus  M  and  yield  strength  Y  according  to  the 
following  relations: 

N_ 

/  3pn  \  1 

w  ~  M0  +  *u0'  j  Clouding)  (6*) 


Y  *  Y  +  2M_  [■ ~ 

1  lJP 


yield 


M  *  M  +  (M  -  M  ) 
2  3  2 


1  3SD\ 

2  '  4y2; 


(loading,  after  yielding)  (63) 


(unloading) 


Y  =  Y2  +  2M3  Hf 


(unloading,  after  yielding)  (65) 


yield 
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SPECIFIC  VOLUME  —  cms/*n 

w  04-6754-14 

FIGURE  7  RELATIONSHIP  BETWEEN  DEVIATORIC  STRESS  AND  SPECIFIC  VOLUME 
OBTAINED  FROM  50-kbar  TESTS  IN  2024-T8  ALUMINUM 


where 

Y1 .  Y  =  yield  strengths  at  yielding  on  loading  and  unloading 

Y  =  the  final  value  of  Y  from  Eq.  63  before  unloading  begins 

w 

M  ,  M  ,  M  ,  M  =  shear  modulus  at  zero  stress  on  loading,  strain-hardening 

O  1  6  J 

modulus  for  loading,  initial  unloading  shear  modulus, 
and  strain-hardening  modulus  during  unloading 
N  ,  N  *  constants. 

A  « 

For  N  ■  00  the  relations  of  ideal  plasticity  are  obtained.  Rounded 
SD-V  relations  comparable  to  those  obtained  from  experiments  are  obtained 
for  N  between  1  and  10. 


Implementation  in  the  Code 


The  Bauschinger  model  is  included  in  the  SRI  PUFF  code  as  Model  5. 
The  special  parameters  and  yield  parameters  used  in  the  model  are  related 
to  the  parameters  above  as  follows: 
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MU  =  M 

o 

YADD  =  2M  /(pi  +  p  ) 

MUUN  * 

YADF  =  M  ,/M 

O  1 

YO  =  Y 
XPO  =  N 
XP  =  n2 

For  simplicity  in  the  program  and  in  preparing  the  data,  YADD  csn  be 
calculated  from 


YADD 


(67) 


where  subscripts  1  and  2  refer  to  the  yield  point  and  beginning  of 
unloading  respectively. 


The  Bauschinger  model  reflects  considerable  detailed  knowledge 

about  the  loading  and  unloading  character  of  a  material.  Therefore,  it 

is  probably  only  worthwhile  to  use  the  model  if  the  loading  equation  of 

state  is  well  known  and  some  information  is  available  about  unloading. 

Then  the  moduli  can  be  estimated  as  follows:  ML  should  be  known.  YADD 

can  be  estimated  from  static  data  such  as  Bridgeman's  or  dynamic  results 

such  as  Curran's  on  work  hardening.  MUUN  is  principle  parameter 

ueiermining  the  rarefaction  velocity;  henr i  it  should  be  carefully 

determined.  The  rarefaction  velocity  C  i~ 

R 


C+(2D-Cr  )  li  +  (3»  -  2  Dl  )  u  “ 
m  m 


jr  <cu»  ♦  °«2» 

m 


<>  ♦  4  = 

m  op 


(68) 


where 


P 


P  a  density  at  peak  stress 
m 

T  *  Gruneisen's  ratio  (a  constant) 
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and  the  other  parameters  are  defined  following  Eq.  60,  Y.AOF  may  be 
estimated  as  ] ,0  in  the  absence  of  detailed  information  on  the  material. 

The  exponent  quantities  will  probably  be  between  1  and  2  for  unloading 
and  abcut  10  for  loading. 

Our  approach  in  developing  a  set  of  parameters  for  a  material  was 
t>  calculate  as  many  as  possible  (i.e.,  Y0,  MU,  YAW),  nr..;  MUUN)  and  then 
to  determine  the  others  by  trial.  A  small  computer  program  was  written 
to  compute  the  stress  deviator-volume  curves  for  loading  and  ut. loading. 

The  computed  values  were  plotted  and  compared  with  the  experimental 
curves.  Exponents  ana  YADF  parameters  were  altered  until  the  computed 
curves  were  judged  satisfactory. 

Several  computations  have  been  performed  with  the  Bauschinger  model 
to  simulate  impacts  with  2024  and  6061  aluminum.  Examples  of  the  output 
of  these  calculations  are  given  with  the  data  correlation  work  of  the 
n^xt  section  and  with  the  test  runs  in  Appendix  I.  The  results  have 
shown  that  the  model  does  accurately  represent  the  material  behavior. 

The  transition  region  near  the  yield  point  is  not  required  for  computations 
with  an  artificial  viscosity  code:  the  smoothing  is  caused  automatically 
by  the  viscosity.  Hence  XPC  should  be  set  ^  100.  The  unloading  portion 
of  the  calculated  stress  waves  is  generally  smooth,  simulating  well  the 
appearance  of  recorded  stress  histories. 

One  defect  has  appeared  in  the  present  model  formulation.  The 
fundamm'tsl  shear  modulus  MJ  is  lead  in  as  a  constant  (which  might  be 
obtained  from  static  tensile  or  compression  tests).  In  reality,  MU 
should  vary  with  density  probably  somewhat  like  the  variation  in  the 
bulk  modulus.  In  fact^  it  may  be  appropriate  to  write  either 

MU  ■  MUq  +  MUjJi  +  MU?jU2  (69) 

or 

MU  •  (MU  /EQSTC)  K  (70) 

o 


where 

K 

MU 

o 

MUj^  and  MU2 


the  effective  bulk  modulus  provided  by  Eq .  1 

the  initial  shear  modulus 

constants 
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Equation  70  reflects  the  finding  of  Curran  (Ref.  17)  that  shear  modulus 
appeared  to  increase  in  proportion  to  bulk  modulus.  Either  Eq.  69  or 
70  could  be  used  to  make  a  smooth  transition  from  MU  to  MUU.V,  the  un¬ 
loading  shear  modulus.  Such  a  transits  is  certainly  to  be  expected  on 
physical  grounds  in  place  of  the  Jump  in  modulus  from  loading  to  unloading. 

Our  work  with  the  Bauschinger  model  and  review  of  the  computed 
results  reveal  the  great  importance  of  correctly  computing  the  rarefaction 
velocities.  Any  attenuation  corrput jtions  made  without  the  Bauschinger 
model  for  a  material  with  significant  strength  may  be  misleading. 

Peak  rarefaction  velocity,  i.e.,  •  ve  velocity  of  the  leading  edge 
of  the  rarefaction  fan,  as  a  function  ox  peak  stress  level  can  be  usee 
to  determine  the  correct  form  of  the  MU  function.  Our  review  of  the 
rarefaction  velocity  data  presented  in  Section  IV. 2. a  has  shown  that  MU 
increases  more  rapidly  with  stress  than  does  the  *'ulk  modulus.  Hence, 

Eq.  69  may  be  preferable. 
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SECTION  III 


EXPERIMENTAL  METHODS 

1.  Theory  of  Data  Reduction  for  Multiple  Embedded  Gages 

An  experimental  technique  has  been  developed  to  measure  complete  loading 
and  unloading  paths  (in  the  stress-particle  velocity  and  stress- volume  planes) 
rather  than  discrete  Hugoniot  or  release  points.  The  shock  or  compression 
need  not  be  steady-state  and  the  release  may  be  nonisentropic .  The  technique, 
which  requires  a  special  experimental  configuration  and  a  corresponding  d8ta 
analysis  method,  is  especially  suited  to  examination  of  yield  point  phenomena, 
strain  hardening,  the  Bauschinger  effect,  and  strain-rate  effects.  The  impact 
experiments  employ  a  target  instrumented  with  a  series  of  stress  and/or 
particle  velocity  gages  embedded  at  several  depths.  During  the  experiment, 
stress  and  particle  velocity  histories  are  recorded.  The  data  required  from 
the  records  are  the  apparent  velocities  of  propagation  of  stress  and  particle 
velocity  states  from  gage  to  gage.  A  rigorous  derivation  of  the  theoretical 
basis  for  the  data  analysis  procedure  follows. 

In  one -dimensional  flow  the  quantities  stress,  density,  and  particle 
velocity  are  functions  of  one  cartesian  coordinate,  x,  and  time,  t.  The 
gage  analysis  is  based  on  apparent  wave  velocities  associated  ith  constant 
stress  or  particle  velocity  states  as  measured  on  records  from  successive 
gages.  We  consider  two  .is  in  the  -i  a  path  of  constant  stress 

or  particle  velocity,  and  a  path  with  a  spe^K,  equal  to  the  particle  velocity 
(the  path  of  the  gage). 

In  general,  for  an  observer  traveling  at  velocity  £  ,  the  total  change 
of  Cf  and  u  with  time  will  be  given  by 


da 

da 

.  da 

(71) 

dt 

"  It  + 

du 

du 

^  du 

(72) 

dt 

•  St  + 

Now  consider  a  path  of  constant  stress  in  Eq.  71,  and  a  path  of  constant 
particle  velocity  in  Eq.  72.  In  this  case  £  ir  defined  ss  ofc.x.t)  and 
W(u,x,t)  respectively  and  the  total  derivatives  in  Eqs.  71  and  72  are  zero. 
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(73) 


c!CT  *S  bO 

— —  c  -r  u  =  o 
d  t  dt  ax 


du  du  du 

—  =  -r-aW  —  =  0 

d  t  dt  dx 


(71) 


U  and  W  are  the  velocities  of  portions  or  the  O  or  u  pulses  with 
respect  to  the  fixed  or  Eulerian  coordinates.  Hence  vie  have  a  relationship 
between  the  partial  derivatives  with  respect  to  time  and  space  at  a  point. 
Now  consider  the  change  of  stress  or  particle  velocity  at  the  gage,  that  is, 
along  a  particle  path.  Then  £,  =  u,  and 


da  bo  da 

ST  =  T5i  +  11  & 


and 


'u  du  dt. 

dt  dt  dx 

Substitution  of  Eq .  73  into  75  and  Eq .  74  into  76  yields: 

da  ,  aa 

77  =  (u  "  L)  ^ 


(75) 


(76) 


(77) 


du  di 

dt  *  <U  -  W) 


(78) 


which  apply  along  a  particle  path.  In  order  to  integrate  Eqs.  77  and  78  i 
is  necessary  to  replace  thi  partial  derivatives  by  total  derivatives-  Thii 
can  be  done  using  the  equations  of  motion  and  continuity. 


~~  m  -  p  —  (motion) 
dx  dt 


(791 


d£ 

dt 


du 


p  (continuity)  <80 

where  p  *  density.  Substitution  of  Eqs.  79  and  80  into  Eqs.  77  and  78 
yields  the  following  i>et  of  differential  equations: 


and 


da  .  du 

_  .  pa  -  u>  - 


du  (*  -  u )  dp 
dt  p  *t 


(81) 


(82) 
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By  writing  Eqs.  Hi  and  82  in  differential  form,  using  the  relation  V  it, 
and  combining  he  second  equation  with  the  first,  the  following  rela'ions 
between  Cr,  u  and  V  are  obtained. 

da  =  p(U  -  u)  du  (83) 


du  =  -p(W  -  u)  dV  (8*.') 

d0  =  -p=(W  -  u)  (f  -  u)  dV  (85) 

The  corresponding  differential  relation  for  internal  energy  is  derived  from 
the  adiabatic  relation,  dE  =  -  OdV.  With  the  aid  of  Eq  .  85  the  relation  for 
energy  is 


PS(U  -  u)  (W  -  u) 

Equations  83  through  8  are  the  desired  0  -  u,  u  -  V,  a  -  V,  snd 
E  -  a  relationships.  The  next  step  is  to  show  how  the  quantities  p(V  -  u) 
and  p(W  -  u)  are  derived  from  gage  records.  Consider  the-  case  of  two  thin 
foil  stress  or  particle  velocity  gages  located  in  the  unstressed  material 
at  and  x  .  If  the  time  at  which  a  particular  stress  level  reaches  gage 
i  is  t ^  ( CT)  then  we  may  define  a  fictitious  (but  readily  measured^  gage 

ve  1  oc i t  v  D  as 

g  x  -  x 

V^taV-'tTff)  <871 

*  1 

Similarly,  for  a  particular  particle  velocity,  w©  define  the  fictiti^nia 


gage  velocity  B^. 


8  T  ~~S — .  — 1 

g  t  (u)  -  t  (u) 
2  1 


To  relate  0  and  B  to  actual  velocities  we  Bsofcc  use  of  the  conaervatioo 

g  e 

of  mass  between  the  gages.  The  maus  traver«w*d  along  any  path  with  elope 
dx/dl,  within  the  <*  ~  t)  plane  ie  given  by 


/■ 


.dx  , 

_  u)  nx. 


5i 


where  dx/dt  is  a  velocity  with  respect  to  the  coordinates  and  (dx/dt  -  u) 

is  velocity  relative  to  the  material.  particular,  if  dx/dt  =  U,  the 

velocity  associated  with  a  stress  O  and  t  and  t  are  times  at  which  the 

12 

stress  reaches  the  two  gages,  then 

t  (CT) 

P 

M  =  f  p(U  -  u)  dt 

t  (a) 

i 


Because  mass  is  conserved  between  the  gages, 


t  (o) 

r 2 


M  =  p  (x  -  x  )  =  p  D  (t  -  t  )  -  I  p(l'  -  u)dt  (89) 


o  g 


J 


t  (or) 

l 


where  the  definition  of  D  ,  Eq.  87,  has  also  been  employed.  Evidently 

g 

p^Dg  is  the  time  average  of  the  quantity  p(U  -  u)  between  the  gages.  A 
similar  relationship  holds  between  p  B  and  p(W  -  u) . 

O  r. 


Because  p  is  known  and  D  and  B  are  measurable  quantities,  we  now 
°  g  g 

are  *ble  to  integrate  Eqs.  83  through  86  to  obtain  the  result: 

O 

u  (a,  x)  = 


x  .  f  do r 

c)  =  uo  T  /  p  D  “car 
J  °  g 


x) 


(90) 


V(u, x)  =  V 


■( 


du' 


P  B  (u',x) 

o  g 


(91) 


u 

¥  (a,  x)  =  v  -  [  - — — - — 

°  J  p  2  d  (a’,x)  d  (a’,x) 

-Off  X 


(92) 


(93) 


E(a,  x) 


w 

-E°+/*p 


cr’da' 


d  (a',x)  d  (a',x> 
g  g 


Eqs.  90  through  93  are  the  relations  sought  because  they  provide  the 
0  -  u,  y  -  V,  0  -  V,  and  E  -  0  paths  during  shock  and  rareiacti '•-)  regard¬ 
less  of  whether  the  system  is  steady  state  or  not.  As  long  as  suitable 
gages  are  available  the  application  of  these  equations  is  straight! orward , 
requires  no  special  assumptions,  and  is  capable  of  determining  the  entire 
shock  and  release  paths  necessary  for  computation  of  propagation  and 
attenuation.  In  addition  the  release  path  measured  does  not  depend  on 
prior  knowledge  of  another  material  so  its  accuracy  is  as  good  as  that 
of  any  Hugoniot  experiment. 


If  we  consider  only  simple  waves  (no  wave  interactions  or  rate- 

dependence)  then  a  line  of  constant  stress  is  a  line  of  constant  psrticje 

velocity,  and  U  =  W.  In  this  case  Lt  =  B  and  the  average  compression 

©  5 

and  release  paths  may  be  determined  with  either  stress  or  particle 
velocity  measurements  alone.  For  simple  waves  the  above  equations 
simplify  to: 


(94) 


(95) 


(96) 


(97) 
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The  curves  defined  lay  Eqs,  93  to  97  do  not  necessarily  lie  on  the 
equation  of  state  surface  bersuse  no  steady-state  or  equilibrium  condition 
is  implied  by  t^e  equations.  The  computed  loaoitig  path  for  a  shock  follows 
the  tiayleigb  line  *R»  therefore  lies  above  the  equation-of-state  surface. 

If  rate-dependence  is  important,  the  equations  may  lead  to  a  series  of 
noncoincident  paths  (one  path  for  each  pair  of  gages)  for  the  same  material. 

The  foregoing  set  of  equations  readily  reduce  to  the  more  usual 
forms  whan  the  appropriate  simplifying  assumptions  are  made.  For  example 
in  the  case  of  isentropic  flow  (as  in  ideal  release  behavior)  the  quantity 
<U  -  u)  is  equal  to  the  isentropic  sound  velocity  C.  Thus  Equation  94 
becomes  tho  Ricmann  integral  since  in  this  case  pQD  k  p  (U  -  u)  *  p  C, 
for  steady  state  shock  the  wave  profile  measured  by  the  gage  is  un¬ 
changing  in  time.  Therefore  tho  measured  At  between  gage  records  is 
constant  and  hence  D  »  B  »  constant.  Since  in  general  D  =«  ■&-  (Li'  -  u) , 

Po 

we  can  evaluate  D  a*  rero  stress  and  D  is  therefore  equal  to  (U  •-  uG)  . 

Ry  making  this  substitution  Eqs.  94  md  9i  Amplify  to  the  equations  for 

the  Rayleigh  line  in  the  O  -  u  and  0  -  V  planes  respectively.  If 
in  this  simple  case  Sqs.  £4 ,  95  nnd  96  are  integrated  across  the  shock 
front,  we  obtain s 

9-0  «  p  (U  -  u)  (u  -  u  )  (98) 

g  o  o 

1  -  p  /p  =  il-l.--0-  (99) 

o  U  -  u 

o 

0-0  *  -  p  8(U  -  u  )8(V  -  V  )  (100) 

o  o  o  o 

Integration  of  Eq.  97  and  simplification  with  the  aid  of  Eq.  100  lends  to 

£-E  =  -£(C7+C>(V-V)  (101) 

o  2  o  o 

Equations  98,  99,  and  101  are  the  usual  Hugoniot  relations.* 

A  sample  application  of  the  multiple-gage  analysis  procedure  is 
presented  in  Section  IV  for  aluminum. 


*Petersun  at'  ai.,  to  be  published  in  Geophysical  Rcssarch. 
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2.  Experimental  Techniques 

a*  Gas  Gun  Experimental  Techniques 

The  SRI  light  gas  gun  described  by  Linde  and  Schmidt  {Ref.  30)  is  used 
.or  impacting  samples  with  flying  plates  (thin-headed  projectiles)  to 
produce  plane  stress  shock  waves  below  100  kbar  traveling  into  both  the 
target  and  flyer  plate.  The  projectile  material  and  ■’’eloclty  may  be 
selected  for  each  experiment  so  that,  for  example,  the  projectile  head 
may  be  of  the  same  material  as  the  target.  This  "symmetric  impact" 
configuration  is  often  used  because  it  offers  a  guarantee  that  the 
particle  velocity  in  the  target  at  the  impact  interface  will  be  exactly 
one  half  the  projectile  velocity.  If  the  target  exhibits  steady  state 
flow,  its  Hugcniot  state  is  usually  determined  by  measuring  the  projectile 
velocity  (and  thus  particle  velocity)  and  the  shock  velocity  in  the 
target  and  by  applying  the  Ranking  Hugoniot  conservation  equations  {jump 
conditions)  to  calculate  the  other  variables. 

Figure  8  illustrates  the  experimental  arrangement  used  An  the  present 
study  to  investigate  loading  ana  attenuation  in  aluminum  and  titanium 
alloy  at  stresses  below  50  kJjar,  The  flyer  plate  may  be  bonded  directly 
to  the  projectile  or  may  be  supported  by  a  foam  material  in  front  of  the 
projectile  as  in  Fig.  8,  With  the  foam  backing,  the  plate  behaves 
approximately  as  a  free  flyer  and  therefore  can  be  used  in  attenuation 
studies.  The  bomitid  plate  configurations  are  used  for  shots  where  only 
loading  is  of  interest. 

When  very  thin  flyer  plates  were  required,  &  foam  backing  surrounded 
by  a  tubular  aluminum  extension  was  a<-ded  to  the  projectile  to  support 
an  aluminum  flyer  plate  (disk)  at  its  circumference.  The  cavity  behind 
the  flyer  was  filled  with  a  rigid,  low-density,  nigh-strength  poly¬ 
urethane  foam  to  ensure  that  the  flyer  remained  flat  while  the  projectile 
was  accelerated.  Tesva  using  an  optical  flat  and  a  monochromatic  light 
source  r bowed  that  the  foam  did  not.  expand  when  subjec  3*2  to  typical 
barrel  vacuums  and  the  flyerc  remained  flat  to  better  than  three  microns. 
The  shock  Impedance  of  this  foam  could  be  neglected  compared  to  that  of 
aluminum  although  this  assumption  was  not  required  in  the  data  nalysla. 
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FIGURE  8  EXPERIMENTAL  ARRANGEMENT  FOR  GAS  GUN  ATTENUATION  SHOTS 


The  stress  history  at  the  back  face  of  the  metallic  specimens  was 
measured  by  means  of  manganin  transducers  embedded  in  glass.  For  the 
shots  with  aluminum  targets,  a  soda-lime  glass  was  used  with  the 
transducers  because  this  glass  has  a  shock  impedar-e  only  slightly 
below  that  of  the  aluminum  alloys  investigated.  Therefore,  to  f  good 
approximation,  wave  interactions  caused  by  reflections  at  the  aluminum- 
glass  interface  could  be  ignored.  To  minimize  target-gage  wave  interactions 

in  the  tests  rith  titanium,  a  lead  oxide  glass  was  incorporated  in  the 
transducers  in  place  of  the  soda-lime  glass.  This  glass  has  an  impedance 
only  slightly  lower  than  that  of  titanium.  The  manganin  transducers 
are  discussed  further  in  Section  III, 3. 

b.  High-Explosive  Experimental  Techniques 

In  the  present  study,  specimen  stresses  between  approximately  100 
and  700  kbar  were  generated  with  high-explosive  (HE)  driver  systems. 

The  three  driver  systems  employed  (Table  1)  are  of  one  or  the  other  of 
the  two  types  shown  in  Fig.  9.  The  first  system  propels  a  thin,  high- 
velocity  flyer  for  attenuation  studies.  The  second,  and  simpler,  type 
of  HE  system  is  used  in  experiments  which  require  measurement  of  the 
loading  state  but  not  of  attenuation  or  other  unloading  properties. 

Both  types  of  system  employ  an  8-tiu:h-iiameter  plane  wave  generator 
(P-80)  to  initiate  a  plane  detonation  wave  in  a  cylindrical  pad  of  HE, 
which  either  directly  or  indirectly  (see  Fig.  7)  accelerates  the  flyer 
across  the  flight  path  to  the  target.  Specimen  shock  state  measurements 
are  made  electronically  with  manganin  gages  or  optically  with  a  smear 
camera  or  with  a  combination  of  these  two  techniques. 

The  first  HE  system  (Fig.  9,  System  E)  was  developed  bj  Erknwm  and 
Christensen  (Ref,  22)  to  accelerate  thin,  hig  -veloc ity ,  relatively  stress- 
free,  unspalled  flyers.  Such  flyers  are  require,  to  study  shock  attenuation 
and  stress  release  in  shocked  material  resulting  from  the  trailing 
rarefaction  fan  originating  at  the  back  surface  of  the  flyer  (see  Fig.  10) 
Christensen  found  that  when  the  plane  wave  generator  was  in  direct 
contact  with  an  1/8  in,  thick  aluminum  flyer,  the  flyer  would  spall  during 

the  experiment.  To  avoid  flyer  spalling,  the  air  gap,  buffer  plate, 
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PARAMETERS  OF  EXPLOSIVELY  LAUNCHED  FLYER  PLATE  SYSTEMS 


* 

Explosive  Flyer  System 

Driver 

Free-Surf ace 
Velocity' 

fs 

(mm/p.  sec ) 

Driver 

Shock  Stress^ 

a 

(kbar) 

Particle 

Velocity’ 

u 

(mm/M-sec) 

System  B 

P-80*+  4  in.  HMX  +1/16  in. 
air  gap  +  1/4  in.  2024  A1 
flyer  +1.0  in.  flight  + 

3/16  in.  2024  A1  driver§ 

4.8  *  0.1 

550±20 

2.3±0.1 

System  D 

p«80*+  2  in.  Baratol  +  1/16 
in.  air  gap  +  1/2  in.  2024  A1 
flyer  +  1  in.  flight  +  3/16  in. 
2024  A1  drlver§ 

2.2  ±  0.1 

200±10 

1. 1*0.1 

System  E 

p-80  +  2  in.  Comp.  B  +  1/2 
in.  air  gap  +  3/4  in.  A1 
buffer** +  1/8  in.  sheet 
explosive  +  1/8  in.  2024  A1 
flyer  +  1  in.  flight  +  3/16  in. 
2024  A1  driver§ 

3.1  ±  0.1 

310±15 

1 , 5±0, 1 

All  dimensions  are  uniform  within  ±  0,001  inch  and  sc  aces  of  all 
components  are  flat  and  parallel  within  ±  0.0005  inch. 

^  The  tolerances  denote  the  range  within  which  approximately  80  f?rcent 
of  the  measurements  fall. 

* 

§ 

** 


Plane  wave  generator  8  inches  in  diameter. 

The  driver  thickness  and  material  were  varied  in  some  of  the  experiments. 
In  one  experiment  the  buffer  thickness  was  1/2  inch. 


FIGURE  10  A  DISTANCE  (x)-TIME  (t)  DIAGRAM  SHOWING  SHOCK 
ANO  RAREFACTION  WAVES  CAUSED  SV  IMPACT 
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and  sheet  explosive  (providing  supporting  stress  at  the  back  of  the  flyer' 
were  added  by  Christensen  and  Erkman  (Ref.  22).  The  resulting  flyer  velocity 
is  approximately  3  nun/^sec,  with  planarity  (siisui taneity  of  arrival)  of 
0.04  to  0.06  psec  across  a  4-inch-diameter  impact  surface.  The  vacuum 
sy  tem  shown  in  Pig.  9  is  employed  to  eliminate  the  air  shock  which  would 
otherwise  precede  the  impact.  A  typical  experimental  configuration  using 
System  E  is  shown  in  Fig.  11. 

The  second  type  of  HE  system,  represented  here  by  Systems  B  and  D 
(Fig.  9),  is  characterized  by  the  fact  that  the  high  •'pressure  detonation 
products  act  directly  on  the  flyer  (usually  much  thicker  than  flyers  of 
System  E)  to  accelerate  it  across  the  free  run  gap  into  the  target.  Systems 
B  and  9  were  demonstrated  not  to  spall  by  letting  the  flying  plates  impact 
manganln  stress  transducers  and  examining  the  resulting  stress  histories. 

The  planarity  of  the  shock  front  in  the  target  obtained  using  these  systems 
is  of  the  same  order  of  magnitude  as  thst  of  Syst E. 

fhe  objectives  of  u.  ;  HE  experiments  in  this  study  were  to  measure 
Hugoniot  states  achieved  in  tie  Specimens,  and  in  the  case  of  the  thin 
flyer  attenuation  shots,  to  record  the  atreaa  history  during  loading  and 
unloading.  In  all  the  HE  experiments  Hugoniot  states  w ere  determined  using 
optical  techniques  (Ref.  31,32),  and  stress  histories  were  obtained 
electronically  using  manganln  C-7  stress  transducers  (Ref.  33). 

Hugoniot  state  determinations  in  the  HE  experiments  were  simplified 
by  the  observation  that  the  study  materials  (with  the  exception  of  the 
three-dimensional  weave  material)  supported  a  single-front,  steady-state 
shock.  Therefore,  the  Rank ine-Hugon lot  conservation  equations  apply  and 
the  impedance  match  technique  (Ref.  34)  is  valid.  Coder  these  conditions 
measurement  of  two  shock  variables  allows  the  determination  of  the 
specimen  Hugoniot  state.  In  the  present  experlswnts  the  two  variables 
measured  » ere  the  driver  free-eurface  velocity  (or  equivalently  the  flyer 
velocity)  and  the  specimen  shock  velocity.  Since  these  velocities  are 
constant  during  tb£  experiment  (steady- state  flow),  they  were  determined 
from  time  and  distance  measurements.  Back  surface  mirrors  were  positioned 
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at  the  planes  of  interest  (e,g.,  the  front  and  back  surface  of  the 
specimen)  and  illuminated  by  a  relatively  long-duration,  shocked  argon 
light  bomb.  These  mirror*  were  monitored  by  a  time-resolving  high¬ 
speed  streak  camera  which  recorded  the  relative  times  of  the  events  of 
interest  (e.g.,  the  chock  front  arrival  at  the  front  and  back  surfaces 

_g 

of  the  specimen)  by  the  very  rapid  (occurring  in  <  10  sec)  changes  in 
nr-rcr  reflectivities  that  resulted.  With  such  optical  methods 
velocities  can  be  determined  to  within  1  percent  in  a  typical  experiment. 

To  determine  stress  histories  in  HE  experiments,  manganin/C-7  gages 
(Ref. 33)  were  mounted  on  the  specimen.  These  gages  record  the  entire 
stress  history  in  C-7  resulting  from  the  shock  transmitted  across  the 
specimen  C-7  interface.  Ideally  these  experiments  would  employ  a 
transduce*  medium  which  closely  matched  the  shock  impedance  of  the 
specimen,  to  minimize  th"  waves  reflected  back  into  the  specimen  from 
the  specimen-transducer  interface  (see  Fig.  10).  However,  manganin/C-7 
gages  were  used  in  the  HE  experiments  (in  spite  of  being  of  lower  shock 
impedance  than  the  study  materials)  because  the  manganin/C-7  gage  is  the 
only  one  which  has  been  calibrated  at  these  high  stresses.  It  is  there¬ 
fore  fortunate  that  in  all  HE  experiments  the  study  materials  support 
only  a  single  front  shock  (no  elastic  precursor  or  phase  transition 
wave),  so  interpretations  of  the  gage  experiments  are  not  complicated 
by  interactions  in  the  specimen  between  the  rarefaction  reflected  fro* 
the  interface  and  a  complex  plastic  shock  front.  However,  In  the  region 
where  the  rarcfacted  waves  reflected  from  the  gage-target  interface 
intersect  the  rarefacted  waves  from  the  free  surfa-'e  of  the  flyer  (Fig.  10), 
the  stress  will  Heco3>e  tensile  and  the  specimen  may  apall.  The  stress 
release  seen  in  C-7  Is  therefore  characteristic  of  the  interaction  of 
the  two  rarefaction  fans. 

In  all  EE  experiments  the  transducers  were  standard  4-terstinal  1-oh* 
gages  (Ref. 33)  with  the  manganin  element  (0.002-inch-dla*eter  wire  flattened 
to  less  than  0.001  inch  to  ainimize  response  time)  set  0.010  inch  into  the 
C-7  from  the  spec imen/C-7  interface.  It  was  noted  that  when  this  particular 
manganin/C-7  gage  configuration  was  shocked  to  45  khar  peak  pressure 
in  C-7,  a  60  to  70  mv  signal,  commonly  ermed  a  polarisation  signal .occurred. 
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The  signal  appeared  30  to  40  nsec  before  the  main  pulse,  corresponding 
to  the  shock  transit  time  through  0.008  to  0.012  inch  of  C-7,  dropped 
to  10  to  20  nt  as  the  shock  entered  the  manganin  element,  and  decayed 
to  zero  approximately  1/2  later.  The  signal  is  believed  to  be 

generated  by  the  leakage  of  induced  charge  in  the  C-7  through  the  active 
manganin  element  to  ground.  In  the  data  analysis  this  sig-rl  was  sub¬ 
tracted  from  the  transducer  record  to  obtain  the  true  stress  history.  TO 
compensate  the  gage  hysteresis  during  stress  release,  the  observed  relative 
resistance  change  of  the  mang  lin  w.re  is  assumed  to  depend  linearly  on 
axial  stress  (as  during  loading)  but  with  the  proportionality  constant 
decreased  during  unloading  by  12-1/2  percent  for  peak  stresses  between 
130  and  160  kbar  (Ref. 33).  Thus  when  AR/R,  the  relative  resistance  change, 
has  decreased  to  12-1/2  percent  of  its  peak  value,  it  is  assumed  that  the 
axial  stress  has  been  completely  released. 

The  shock  front  arrival  and  planarity  at  the  transducer-specimen 
interface  was  monitored  optically  by  locking  through  the  ground  and 
polished  t  .p  surface  of  the  C-7  transducer  at  the  polished  specimen 
below  using  the  streak  camera.  For  the  study  of  nonmetallic  materisls, 
the  gage  front  surface  was  aluminized.  This  combined  electronic -optical 
instrumentation  proved  highly  successful  and  is  recommended  when  detailed 
shock  planarity  information  is  needed,  in  conjunction  with  stress  trans¬ 
ducer  information. 

c .  Manganin-ln-glass  Gages 

The  manganin-glass  gage  consisted  of  four  terminal  tt  network 

manganin  elements  (manganin  ribbon  0.0005-inch  thick  and  0.025-inch  wide 

was  used)  wi;  mercury-silver  dental  amalgam  leads  made  b,  back  filling 

1/16-inch  noies  iu  1/2-inch-thick  glass  gage  blocks.  Aluminum  foil  disks 

(0.0004  inch  thick  by  3/16  inch  diameter)  were  pressed  onto  the  dental 

amalgam-manganin  ribbon  juncture  and  a  0. 003-inch-tliick  cover  glass  was 

* 

bonded  over  the  face  with  C-7  epoxy.  The  aluminum  foil  disks  extend 


*  C-7  resin  with  6  percent  activator  A  by  weight,  from  Armstrong  Products, 
Inc.,  Warsaw,  Indiana, 
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the  recording  time  (typically  2  usee)  of  these  •  ransi’.ueers  by  maintaining 

good  electrical  contact  at  the  ribbon-lead  joint  during  snook  loading, 

* 

KSanganin  transducers  in  soda  -lime  glass  were  calibrated  for  pc 
stresses  up  to  43  <;bar  by  impacting  te3t  glass  gages  incorporating 

s* 

manganin  ribbon  elements  at  ^‘.vo  different  depths,  with  either  Lucalox 

or  aluminum  flyers.  Measurement  of  shock  transit  time  between  the 

gage ~  yields  the  shoes  velocity  in  the  glass.  Since  the  Hugoniot  of  the 

projectile  material  was  known,  the  psak  stress  could  be  determined  by 

the  impedance  match  method.  The  piezoresistive  response  measured  in 

these  tests  was  linear  ana  equal  to  0,0029  Q/ii/kbar ,  identical  to  that 

previously  obtained  iu  €-7  epoxy. 

The  Hugoniot  and  unloading  characteristics  of  the  soda-1 ime  glass 

were  also  determined  from  these  experiments.  The  resistance-time 

records  geneiated  by  plane  impacts  revealed  that  tne  stress  wave  in 

glass  was  steady  state  for  both  the  compression  and  release  portions 

and  that  the  shock  velocity  was  const*  up  tc  43  kbar.  The  conclusion 

was  that  the  Hugoniot  and  the  unloading  ioentrope  are  a  single  straight 

line  in  the  stress-particle  velocity  .'lane.  The  glass  shock  impedance 

measured  in  these  experiments  was  p  U  =  14.9  ±0.1  g/cm3  mm/tisec.  It  is 

o 

interesting  to  compare  this  result  with  tbit  of  Fullsr  and  Price  (Ref. 35) 
who  investigated  a  soda-lime  glass  with  a  density  of  2.46  gm/cin3 .  The  shock 
impedance  of  their  glass  was  some  lQ  percent  lower  than  that  of  the  glass 
used  in  this  work  and  their  glass  displayed  strong  dispersion  of  the 
compressive  wave.  This  indicates  that  density  is  not  an  adequate  indicator 
of  dynamic  properties  in  different  sod«-lime  glass.  Indeed,  discussions 
with  glass  suppliers  revealed  that  the  composition  of  soda-lime  glass  can 

vary  considerably  from  batch  to  batch,  even  from  the  same  supplier.  Conse¬ 
quently,  all  glass  used  in  this  work  was  taken  from  a  single  sheet,  with 

the  exception  of  the  0.003- inch-thick  cover  glass. 

*  . 

Soda-lime  glass  (2-incn-thick  plate  window  glass),  p  =  2.52  g/cc. 

#*  ° 

A  polycrystalline  alumina  CAlg",,)  Prcd‘Jce^  by  General  Electric  Co., 

Lamp  Glass  Department,  Los  Angeles,  California. 
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Gtig-e  hysteresis  was  measured  by  impacting  test  gages  with  Lucalox 
flyers.  The  impedance  mismatch  between  glass  and  Lucalox  causes  a  series 
of  reverberations  in  the  Lucalox  flyer.  If  all  stresses  are  below  the 
elastic  limit  of  Lucalox,  the  reverberating  waves  remain  nondispersive 
and  the  glass  release  states  are  well-defined,  this  providing  a  release 
calibration  of  the  manganin  in  glass  transducer.  The  results  of  release 
calibrations  for  peak  stress  up  to  43  kbar  are  summarized  in  Fig.  12 
which  shows  that  the  percentage  drop  in  gage  resistance  lags  the  percentage 
drop  in  stress  during  release;  i.e.,  the  gage  exhibits  considerable 
hysteresis.  The  recorded  stress  histories  were  corrected  for  release 
hysteresis  according  to  this  curve. 

* 

For  tests  with  titanium  a  lead  oxide  glass  called  Hi-D  was  used. 

The  shock  impedance  of  Hi~D  is  slightly  lower  than  that  of  titanium. 
Hugoniot  measurements  (Ref. 36)  on  Hi-D  glass  have  been  performed  in  this 
laboratory,  and  the  glass  used  in  these  gages  came  from  the  same  source 
as  that  used  for  the  Hugoniot  measurements.  The  ILL-D  glars  Hugoniot  is 
a  straight  line  up  to  150  kbar  with  p^U  *  20.7  g/cm3  mm/psec.  The 
previously  measured  piezoresistive  coefficient  of  the  manganin  in  Hi-D 
glass  transducer,  is  0.0024  CVfi  kbar  (Ref .  37) . 


89  percent  PbO  glass,  pQ  =  6.2  supplied  by  Penberthy  Instrument  Company, 
Seattle,  Washington. 
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SECTION  IV 


STUDY  OF  ALUMINUM 


1.  Introduction 

For  the  study  of  aluminum  the  objectives  were  to  investigate  stress 
relaxation,  unloading  effects,  and  stress  attenuation.  The  design  of  the 
experiments  was  based  on  the  data  analysis  technique  outlined  in  Section 
III,  a  technique  which  was  still  being  developed.  Aluminum  was  a  partic¬ 
ularly  good  choice  for  the  experimental  program  because  many  of  its 
properties  are  well  known,  and  even  its  unloading  characteristics  have  been 
studied  (Erkman,  Christensen,  and  Fowles  (Ref. 22)  and  Barker  (Ref. 23)). 

Stress  relaxation  effects  have  been  observed  in  some  aluminum  alloys. 

Based  cn  results  of  experiments  at  low  strain  rates,  it  was  expected  that 
2024-T8  would  be  strain-rate-dependent  while  6061-T6  would  be  relatively 
rate-independent.  Another  reason  for  choosing  aluminum  was  its  high 
experimental  reproducibility,  a  property  of  special  importance  in  any 
basic  investigation. 

The  two  aluminum  alloys  selected  for  study,  6061-T6  and  2024-T8, 
were ' supplied  by  Kaiser  Aluminum  Company,  Department  of  Metals  Research, 
Spokane,  Washington.  All  sheets  of  each  alloy  (from  1/16  inch  to  1-1/4  inches 
thickness)  were  supplied  from  a  single  billet  to  guarantee  uniformity. 

The  heat  treatments,  ageing,  and  rolling  work  hardening  were  those  specified 
by  the  standards  for  T6  and  T8  (Ref. 38,  39).  Table  2  presents  a 
summary  of  the  alloy  properties  obtained  from  quasi-static  and  acoustic 
measurements.  A  description  of  these  tests  and  detailed  results  are 
given  in  Appendix  II. 

The  dynamic  study  of  the  two  aluminum  alloys  consisted  of: 

e  Fifteen  to  20  experiments  on  each  alloy  at  four  or  five 
nominal  pressure  level®  between  15  and  500  kbsr,  including 
two  aeries  of  impact  experiments  at  stress  levels  of  50 
and  300  kbar  with  specimens  of  various  thicknesses. 

e  ..eduction  of  the  experimental  data  to  obtain  s  complete 
stress-volume  relation  for  loading  and  unloading. 

e  Wave  propagation  calculations  to  correlate  with  the 
experimental  stress  records. 
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Table  2 


MEASURED  STATIC  PROPERTIES  OF  ALUMINUM  ALLOYS 


Alloy 

Density 

P  , 

(g/cn.  ) 

Young ' s 
Modulus, 

E 

(kbar) 

vie  Id 
Strength 
(uniaxial 
tension) 
(kbar) 

Ultimate 

Strength 

(uniaxial 

tension) 

(kbar) 

Poisson's 

Ratio, 

V 

2C24-T8 

2.785 

745 

4.4 

4.9 

0.33-0.34 

6061-T6 

2.709 

710 

_ 

2.8 

3.1 

0.32-0.34 

Notes:  Densities  are  from  a  series  of  measurements  on  each  alloy. 

Moduli  and  the  two  strengths  are  from  quasi-static  measurements 
reported  in  Appendix  II.  Poisson's  ratio  is  from  both  acoustic 
and  quasi-static  measurements  of  Appendix  II. 


2.  Dynamic  Experiments 

Both  attenuation  and  Hugoniot-type  Impact  tests  were  conducted  on 
the  two  aluminum  alloys,  2024-T8  and  6061-T6.  The  gas  gun  experiments, 
which  provided  considerable  detailed  information  about  precursor  and 
rarefaction  waves,  are  described  first;  then  the  HE  (high  explosive) 
experiments  are  described.  The  experimental  configurations  and  the 
Kugoniot  data  obtained  are  summarized  in  Tables  3  and  4  and  Figs.  13  and 
14. 

a.  Gaa  Gun  Tests 

Seventeen  gaa  gun  experiments  were  performed  on  2024-T8  and  6061-T6 
aluminum  using  1/16-inch-thick  flyers  to  examine  attenuation  in  these 
materials.  Four  gas  gun  experiments  were  performed  on  6061-T6  with 
1/8-incto-thick  flyers  to  examine  shock  propagation  without  attenuation  in 
thick  targets.  Targets  for  both  sets  of  experimei.  s  were  nominally  1/8, 
1/4,  3/8,  or  1/2  inch  thick.  The  experimental  configuration  is  shown  in 
Fig.  8.  A  typical  set  of  manganln  stress  transducer  resistance-time 
records  for  four  different  target  thicknesses  is  shown  in  Fig.  lr.  (The 
ratio  of  target  to  flyer  thickness  is  given  as  R  in  the  figure.)  The 
blanking  marks  on  these  traces  are  used  for  time  correlation  of  stress 
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FIGURE  *<•  STRESS- VOLUME  MUGOMOT  ORTA  FOR  2024-T8  AND  «061-T6  ALUMINUM 
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ALUMINUM  (6061 -T6) 


FIGURE  15  TYPICAL  MAN  GAN  IN  TRANSDUCER 
RECORDS  OBTAINED  FROil 
IMPACTS  IN  6061-T8  ALUMINUM 


gage  data  with  Impact  time  data.  A  more  precise  time  base  is  provided 

by  a  separate  10  ISIz  time  mark  trace  (not  shown).  Aluminum-glass  Interface 

stress-time  profiles  obtained  from  transducer  records  by  correcting  for 

gage  hysteresis  are  shown  in  Pigs.  16  sad  17.  Because  of  the  good  impedance 

match  between  aluminum  and  the  glass  transducers,  the  effects  of  reflections 

*ro®  f**e  aluminum-glass  Interface  on  later  portions  of  the  Incoming  wave  \  ire  ! 

I 

neglected  for  the  multiple-gage  aaalyais  used  to  compute  the  continue*** 
stress-volume  relations.  (This  assumption  was  not  made  in  calculating 
Bugoalot  points  nor  in  th«*  wave  propagation  computation  of  the  SRI-PUFP 
code.)  The  adequacy  of  the  impedance  match  assumption  was  checked 
experimentally  with  an  "la-material*'  gage  in  one  experiment.  In  that 
teat  a  manganic  foil  gage  (0.0002- Inch- thick)  was  ..  Mched  between  two 
layers  of  aluminum,  using  0.001- inch-thick  mica  as  i.tsuKtion  on  each 

ft  »»  | 

•  id**  of  the  foil  (thus  producing  an  in-material  gage).  It  is  expected 
that  this  sandwiched  gage  disturbs  the  flow  field  very  elightly,  but  it 
is  not  known  how  well  the  gage  response  follows  interface  stresses  during 
unloading.  The  record  from  this  "ln-materlal"  gage  is  in  general  agreement 
with  the  glass  transducer  record  as  shown  in  Pig.  16,  although  there  arc 
differences,  particularly  la  the  unloading  portion  of  the  wave.  These 
differences  show  that  the  reflections  from  the  aluminum-glass  Interface 
may  not  be  entirely  negligible. 

The  er*or  bounds  of  measured  inpact  time  were  excessive  in  some 
experiments  due  either  to  tilt  or  distortion  of  the  flyer.  Improvement  1 

In  the  time  correlation  of  the  stress-time  profiles  of  Pigs.  16  and  17 
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INTERFACE  STRESS  —  k&w 


FIGURE  r  INTERFACE  STRESS  HISOTRIES  RECORDED  BY  MANGAIN-6LASS 
BEHIND  ALUMINUM  TARGETS  (50  kb«r  Impttts) 


LNI 


FIGURE  18  COMPARISON  OF  STRESS  HISTORIES  RECORDED 

AT  ALUMINUM-GLASS  AND  ALUMINUM-ALUMINUM 
INTERFACES 


was  achieved  by  assuming  that  the  steady-state  portions  of  the  wave, 
both  elastic  and  plastic,  were  propagating  at  constant  (but,  of  course 
different)  velocities.  The  positioning  of  the  profiles  in  time  by  this 
method  gave  elastic  wave  velocities  that  were  in  good  agreement  with  the 
longitudinal  sound  velocity  measurements. 

Average  values  of  the  product  p  D,  (which  we  shall  call  instantaneous 
impedance)  as  a  function  of  stress  were  obtained  from  these  profiles 
(as  described  in  Section  III.l)  for  both  compressive  and  release  waves 
and  are  plotted  in  Fig.  19.  Averaging  was  accomplished  by  measuring 
p  D  as  a  function  of  stress  for  every  combination  of  profiles  in  Figs. 

16  end  17  and  then  weighting  each  p  D  value  according  to  the  initial 
distance  between  gages.  This  weighting  procedure  was  used  since  the 
mearureaent  error  was  a  fired  time  increment,  and  therefore  the  percentage 
error  should  be  smaller  for  the  larger  separations.  These  ata  then 
provide  the  required  information  to  integrate  the  momentum  relations 
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INSTANTANEOUS  IMPEDANCE  P0 —  gm  /cm5™  mm /^sec 


AXIAL  STRESS —  kbar  ( 

FIGURE  19  AVERAGE  INSTANTANEOUS  IMPEDANCE  pQDB  AS  A  FUNCTION 
OF  AXIAL  STRESS  FROM  50-kbar  EXPERIMENTS  IN  ALUMINUM 


(Eqs.  100  and  101  of  Section  III.l)  in  the  stress-particle  velocity  and 
the  stress- volume  planes.  These  integrations  result  in  the  compression 
paths,  Hugoniot  points,  and  release  adiabats  "‘gs.  20  and  21.  As 

expected,  both  of  these  figures  show  a  significant  inference  between  load¬ 
ing  and  unloading  paths.  This  hysteretic  effect  contributes  to  energy 
losses  and  attenuation. 

The  measured  Hugoniot  elnstie  limits  (HXL)  for  these  aluminum  alloys  (4.3 

kbar  for  6061 -T6  and  5.5  kbar  for  2024-T8)  are  in  fair  agreement  with  the 

static  yield  strength  from  uniaxial  stress  experiments.  According  to  either 

von  Mises  or  tresca  yield  criteria  (with  a  Poisson’s  ration  of  0.32),  the  REL 

should  be  1.9  times  the  static  yield  strength,  if  strain  rate  effects  are 
a 

negligible. 

*The  relation  between  HEL  and  yield  strength  is  given  in  Section  V.2  as  Eq,  104. 
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PARTICLE  VELOCITY  ■—  mm/fiMc 


FIGURE  20  .  STRFSS-PARTICLE  VELOCITY  COMPRESSION  AND  RELEASE 
PATHS  FROM  50-kbai  EXPERIMENTS  IN  41  UMINUM 


RELATIVE  VOLUME,  V/Vfe 


FIGURE  21  .  STRESS-VOLUME  COMPRESSION  AND  RELEASE  PATHS 
FROM  SHcbar  EXPERIMENTS  IN  ALUMINUM 
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While  theHEL’s  do  not  ahow  a  strain  rate  effect,  the  stress-time 
profiles  of  Pigs.  16  and  17  show  a  nonsteady-state  yielding  zone  (elastic- 
plastic  transition)  that  extends  from  the  HEL  to  approximately  1.8  tines 
the  HEL  for  both  aluminum  alloys.  The  wave  propagation  in  this  yielding 
zone  is  dispersive  with  a  time-independent,  stress-dependent  local 
disturbance  velocity,  a  condition  which  generates  a  single  distance- 
and  time- independent  compression  path  in  the  stress-particle  velocity  and 
stress-volume  planes.  The  HEL  is  the  stress  at  which  dynamic  yielding 
begins  (corresponding  to  the  proportional  limit  of  tensile  experiments) 
and  may  be  measured  by  noting  the  maximum  stress  for  which  the  elastic 
precursor  is  steady  state.  The  HEL  one  obtains  by  this  definition  differs 
little  from  that  obtained  by  other  definitions  based  on  the  shape  of  the 
precursor  profile.  However,  this  definition  provides  a  more  rational 
basis  for  the  selection  of  the  HEL  Jince  the  slope  of  tho  stress-strain 
curve  will  be  a  straight  line  up  to  this  stress,  but  not  beyond.  The 
fact  that  yielding  extends  over  a  wide  stress  range  for  dynamic  loading 
suggests  that  rate-dependent  phenomena  may  play  a  role  in  the  precursor 
formation.  However,  the  HEL  did  not  vary  with  propagation  distance  in 
these  experiments .probably  because  of  the  relative  thickness  of  the 
targets  studied.  The  HEL  would  be  expected  to  attenuate  with  propagation 
distance  at  very  early  times  and  over  very  short  distances  The  wave 
shape  between  the  HEL  and  the  main  wave  can  be  predicted  by  a  rate- 
independent  mechanism:  t  a  rounded  stress-volume  relation  in  the  vicinity 
of  the  yield  point. 

Release  adlabats  measured  with  the  above-described  multiple  gaga 
technique  were  markedly  different  from  those  predicted  by  simple  elastic- 
plastic  theory.  The  elastic  release  modulus  and  the  yield  strength  were 
both  larger  than  predicted,  and  no  well-defined  yield  point  was  observed 
during  release. 

Rarefaction  velocities  were  obtained  aa  a  function  of  stress  level 
fro’n  tho  low-stress  experiments.  This  computation  wss  possible  because 
oi  tho  ood  Impedance  match  between  the  gage  material  and  the  samples. 

Thu  rarefaction  velocity  was  obtained  by  observing  the  first  reduction 
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in  stress  from  a  flat  top  in  the  Hugonlot  experiments.  The  resulting 
rarefaction  velocities  are  shown  in  Table  5  as  a  function  of  stress 
level.  As  expected  these  velocities  are  well  above  the  zero  stress  sound 
velocities.  Considerable  judgment  is  involved  in  selecting  the  point 
of  arrival  of  the  rarefaction  wave  ,and  therefore  it  is  not  surprising 
that  there  is  same  scatter  in  the  data. 

b.  HE  Experiments  on  Aluminum 

The  HEL  was  overdriven  in  all  HE  experiments  on  aluminum  alloys. 

The  Hugonlot  data  from  the  HE  experiments  were  obtained  using  techniques 
described  in  Section  I11.2.b  and  the  results  are  presented  in  Figs.  13 
and  14  and  Tables  3  and  4.  These  results  are  in  good  agreement  with 
other  Hugonlot  data  on  these  materials  as  shown  in  Figs.  13  and  14. 

To  allow  measurements  of  the  stress  histories  during  loading  and  unloading, 
three  thicknesses  of  each  alloy  (approximately  3/8  inch,  1/2  inch,  and  1 
inch)  were  i^acted  by  1/8-inch-thick  stress-free  flyer  plates  traveling 
at  about  3  mm/^sec  (HE  system  E).  The  shot  configurations  are  shown  in 
Pig.  9  and  the  instrumentation  is  described  in  Section  I11.2.b.  Profiles 
for  each  of  these  thicknesses  obtained  *roa  the  manganln  C-7  transducers 
ave  shown  later  in  the  section  (Pigs.  24  through  26  and  30  through  32),  in 
combination  with  the  corresponding  calculated  stress  histories.  The  1-inch 
thick  target  experiments  were  designed  to  show  peak  stress  attenuation; 
therefore  these  experiments  do  not  yield  Hugonlot  data  and  do  not  appear 
in  Tables  3  and  4. 

3.  Calculations  for  2024-T8  Aluminum 

Experimental  strata  records  used  for  calculationsl  comparisons  of 
shock  attenuation  were  obtained  at  two  atresa  levels  in  2024-T8  aluminum: 

SO  kbar  and  300  kbar.  The  high  stress  dsta  were  obtained  with  a  manganln 
transducer  embedded  in  C-7  epoxy.  The  impedance  mismatch  between  C-7  and 
alumltvi  ia  ao  severe  that  the  resulting  stress  records  could  not  be 
readily  uaed  with  the  analysis  procedure  described  in  Section  III.  1.  The 
tests  at  50  kbar  employed  a  manganln  gage  embedded  in  glass  with  an 
impedance  very  similar  to  that  of  the  aluminum.  Therefore,  the  latter 
date  were  uaed  to  develop  the  Bauschlnger  parameters.  PUFF  calculations 


Table  5 


ALUMINUM  PEAK  RAREFACTION  VELOCITIES 


Material 

Initial 

Velocity* 

(ma/jUsec) 

Peak 

Stress 

(kbar) 

Stress 

(kbar) 

Peak 

Rarefaction  ** 
Velocity 

(m/Msec) 

6061-T6 

6.2 

45.6 

45.6 

7.3 

6061-T6 

45.6 

40.0 

6.8 

6061-T6 

45.6 

30.0 

6.1 

6061-T6 

45.6 

20.0 

5.6 

6061-T6 

45.6 

10.0 

5.3 

6061-T6 

6.2 

17.0 

17.0 

6.8 

6061-T6 

17.0 

10.0 

6.2 

6061-T6 

17.0 

5.0 

5.6 

2024-T8 

6.5 

49.6 

49.6 

7.7 

2024-TS 

4r  6 

45.0 

7.4 

2024-T8 

49.6 

40,0 

7.0 

2024-T8 

49.6 

30.0 

6.4 

2024-T8 

49.6 

20.0 

3.9 

2024--T8 

49.6 

10.0 

5.6 

2024-T8 

6.5 

17.5 

17.5 

6.8 

2Q24-T8 

17.5 

10.0 

6.1 

2024-T8 

17.5 

5.0 

-----  . 

5.4 

%ave  velocity  of  the  cospressional  precursor  at  the  aaro  stress  1 
(equal  to  the  longitudinal  sound  velocity). 


4i  $ 

Wave  velocity  of  leading  edge  of  rarefaction  tan  Matured  with  respect 
to  the  Material  at  that  point. 
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were  then  Bade  to  compare  with  the  experinental  records  at  both  stress 
levels.  The  stress  gage  data  fro*  four  low-pressure  experiments  on 
2024-T8  aluminum  are  shown  in  Fig.  16  on  a  comaon  time  base,  with  the 
impact  time  at  zero.  Sets  of  values  of  p  D  were  obtained  from  each  pair 
of  records  through  the  use  of  Eq.  87.  With  measurements  on  all  possible 
pairs  of  records,  six  curves  of  p  D  va  stress  were  obtained  for  the 
2024-T8  aluaimiB.  The  composite  p  D-stress  curves  shown  in  Fig.  19 
were  the  basis  of  a  numerical  integration  of  Eq.  101  to  obtain  the 
stress-volioae  relation  shown  in  Fig.  22.  To  guide  in  the  interpretation 
of  the  relation,  a  computed  pressure-volume  relation  is  also  shown.  The 
loading  curve  of  Fig.  22  exhibits  an  elastic  limit  at  S  kbar,  but  the 
Rayleigh  line  passes  between  10  kbar  and  the  peak  stress.  Hence, there  is 
a  range  of  gradual  yielding  from  5  to  10  kbar.  This  effect  is  more 
evident  in  the  plot  of  deviator  stress,  Fig.  7.  (The  deviatoric  stress 
curves  are  taken  from  the  difference  between  the  stress  and  pressure 
curves  of  Fig.  22).  The  5-kbar  level  is  the  magnitude  of  the  elastic 
precursor.  The  5  to  10  kbar  yield  region  is  associated  with  a  gradually 
increasing  stress  between  the  precursor  and  the  main  wave.  The  unloading 


FIGURE  22 .  STRESS- VOLUME  RATH  REDUCED  FROM  DATA  FOR  2024-TS  ALUMINUM 
AND  A  COMPUTED  PRESSURE-VOLUME  RELATION 
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curve  is  smooth:  the  sharp  unloading  yield  point  predicted  by  the  model 
of  ideal  plasticity  is  not  present.  The  slope  of  the  unloading  curve 
at  the  peak  stress  la  noticeably  steeper  than  the  loading  curve  at  zero 
stress.  This  increased  steepness  ia  probably  associated  with  the  larger 
(10  to  20  percent)  bulk  modulus  *nd  larger  shear  modulus  at  the  higher 
stress.  Hear  the  point  of  zero  stress  after  unloading,  the  deviatorlc 
stress  and  hence  the  yield  strength  appears  to  be  two  or  three  tinea  as 
large  as  they  were  during  the  Initial  loading. 

The  ten  unknowns  introduced  in  Eqs.  60  through  65  for  the 
Bauschinger  model  —  C,  D  S,  ,  Mi,  Ms,  Ms,  Y\t  Nj,and  N->  —  were 
determined  by  watching  the  experimental  load-unload  S-V  curve  with  the 
analytical  curves.  'riia  required  a  certain  amount  of  trial  and  error 
and  the  resulting  set  of  values  is  by  no  means  unique.  The  form  of  the 
modulus  variation  appeared  to  represent  the  data  ' ery  trull:  the  fit  to 
the  unloading  curve  ia  shown  in  Fig.  7  for  Ns  ■  1.5.  The  computed  values 
of  the  parameters  are  shown  in  Table  6 . 

Using  the  Bauschinger  parameters  from  Tabic  6,  a  PUFF  calculation 
was  made  to  compare  with  the  experimental  stress  records  shown  in  Fig. 

16.  After  several  tries  we  obtained  the  set  of  computed  records 
shown  in  Fig.  23.  These  records  were  obtained  using  the  parameter  values 
in  parentheses  in  Table  6.  The  rarefaction  velocity  was  too  small  so  it 
appeared  necessary  to  augment  the  unloading  shear  modulus.  In  fact, 
there  is  still  not  enough  attenuation  in  the  computed  records  ao  that 
possibly  even  a  higher  Ma  should  have  been  ueed.  The  curvature  N)  of 
the  Initial  loading  function  was  essentially  eliminated  by  giving  it  a 
large  value.  With  Ni  m  6000,  the  function  has  a  sharp  yield.  The 
computed  stress  records,  however,  show  about  the  rigt t  -mount  of  rounding 
at  tht  precursor  front  because  of  the  artificial  viscosity. 

The  camper i son  of  experimental  and  computed  stress  records  in 
Fig.  23  exhibits  the  following  features: 

e  the  arrival  tinea  are  satisfactorily  predicted  by  the 
code  computations 

e  Paak  stress  la  overestimated ;  some  of  the  overestimate 
la  caused  by  the  overshooting  which  ia  characteristic  of 
this  code,  some  is  caused  fay  sa  inadequate  attenuation  of 
stress,  and  sons  by  what  appears  to  be  too  large  values  of 

C,  0,  and  S. 
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Table  € 

PARAMETERS  FOR  THE  BAUSCHIHGEH  MODEL 
FOR  2024-T8  and  6061-T6  ALOMIKiM 


Parameter 

20 24 -T  8 

6061-T6 

EQSTC  (dynos/ca3) 

7.60  X  1011 

6.67  X  1011 

EQSTD  (dynes/ce  ) 

1.30  X  1013 

(1.0  X  1013) 

Mi  (dynes/ca3 ) 

3.0  X  loi11 

2.67  X  1011 

Ma  (dynes/ca3) 

7.63  X  1& 

3.79  X  1010 

M3  (dynes/ca3) 

4.43  X  1011 
(4.82  X  lO11  ) 

4.67  X  lC^1 

M4  (dynes/ca3  ) 

2.18  X  1010 

3.79  X  11T° 

(dyr.es/csi5 ) 

4.0  X  l<f 

3.21  X  l<f 

"t 

6.0 

(6000) 

6.0 

(6000) 

*a 

1.5 

1.0 

Note:  Parenthetical  values  are  the  final  values 

obtained  bv  coeparing  the  PUFF  calculat tone 
with  the  experimental  stress  records. 


•  The  unloading  arrival  is  fairly  well  predicted,  and  the 
shape  of  the  unloading  curve  is  well  matched. 

Figures  24  through  26  show  the  experimental  data  from  the  300  kbar 
shots  and  the  corresponding  computed  records.  The  computed  predictions 
are  very  close  for  the  thin  targets  (Figs.  24  and  26)  but  the  computed 
stress  is  JO  percent  low  for  tne  thickest  target.  These  calculations  were 
made  using  tha  same  Bauschinger  parameters  as  for  the  low  stress  computa¬ 
tions,  Hence, it  is  not  surprising  that  there  is  some  disagreement  in 
magnitude . 

We  conclude  then  from  the  comparison  of  all  the  results  for  2024 
that  the  form  of  the  Bauschinger  model  is  well-suited  to  represent 
2024-T8  aluminum;  however,  some  changes  in  the  parameters  are  required  to 
quantitatively  predict  streos  amplitudes. 

4.  Calculations  for  6063.-T6  Aluminum 

Impact  tests  used  for  calculational  comparisons  were  conducted  at 
50  and  300  kbar,  the  high  stress  tests  with  a  manganin  C-7  gate  and  the 
low  stress  tests  with  a  manganin  glass  gage.  The  series  at  the  low 
stress  level  was  used  in  the  analysis  presented  in  Section  III  1  to 
obtain  the  Bauschinger  and  equation-of-state  parameters.  Then  PUFF 
calculations  were  made  to  compare  with  the  experimental  records  at 
both  stress  levels. 

The  determination  of  Bauschinger  parameters  will  be  sketched  briefly 
here:  it  follows  the  same  procedure  as  that  for  the  2024-T8  aluminum. 

The  series  of  experimental  stress  records  is  shown  in  Fig.  16.  The 
plot  of  p  D  versus  stress  derived  from  these  records  is  shown  in  Fig. 

19.  The  resulting  stress-volume  plot  and  stress  deviator  plot  are 
shwwn  in  Figs.  27  and  28.  The  computed  Bauschinger  parameters  are 
listed  in  Table  6.  The  PUFF  computations  based  on  these  parameters  are 
shown  in  Figs.  29  through  32.  In  general  the  results  of  comparing  the 
computed  and  experimental  c«’. *es  are  similar  to  the  results  for  2024-T8 
aluminum.  There  is  qualitative  agreement  between  prediction  and  experi¬ 
ment  but  attenuation  predicted  i3  not  sufficient;  hence, the  unloading, 
or  rarefcction,  velocity  is  higher  than  expected.  The  differences  that 
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FIGURE  25.  COMPARISON  OF  COMPUTED  AND  RECORDED  STRESS  HISTORIES 
FROM  SHOT  13,532  IN  8.96-mm-THICK  2024-T8  ALUMINUM  TARGET 
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AXIAL  STRESS— kbor 


SPECIHC  VOLUME  —  cm3^  „ 

94-4754-13 

FIGURE  27  STRESS-VOLUME  PATH  REDUCED  FROM  DATA  ON  6061-T6  ALUMINUM 
AND  A  COMPUTED  PRESSURE-VOLUME  RELATION 


exist  between  the  calculated  and  measured  unloading  portions  of  the 
>, aves  Indicate  that  different  values  of  the  Bauschlnger  parameters 
should  pe  mit  a  better  quantitative  match  between  computation  and  experi¬ 
ment. 

5.  Summary  of  Results 

The  results  of  experiments  and  theoretical  calculations  with  2024-T8 
and  6061-T6  aluminum  fall  into  three  main  categories: 

•  Bauschlnger  effect:  pronounced  Bauschlnger  effect  in  both 
alloys  governed  the  speed  of  rarefaction  waves,  the  shape 
of  the  unloading  portion  of  stress  waves,  and  the  stress 
attenuation  rate.  The  apparent  shear  modulus  was  60  to 
70  percent  larger  for  unloading  from  SO  kbar  than  for  initial 
loading.  No  unloading  yield  point  was  observed;  rather 
a  gradual  transition  from  elastic  to  plastic  behavior 
during  unloading,  with  a  continuously  decreasing  shear 
modulus,  was  observed. 

e  No  significant  stress  relaxation  effects  were  observed  in 
the  dynamic  experiments  with  either  alloy  for  the  specimen 
thicknesses  (1/8  inch  and  larger)  studied;  this  result  is 
in  accord  with  the  experimental  observation  that  little 
difference  was  observed  between  the  static  and  dynamic 
yield  strengths  for  plane  strain.  This  result  does  not 
preclude  the  existence  of  stress  relaxation  effects  at 
very  early  times. 
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AXIAL  STRESS  — kSer 
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FIGURE  3V  COMPARISON  OF  COMPUTED  ANO  RECORDED  STRESS  HISTORIES 
FROM  SHOT  13.6M  IN  4.83-frwn-THICK  8Q61-T6  ALUMINUM  TARGET 
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AXIAL  STRESS— kbar 


•  A  large  elastic-plastic  transition  region  in  the  stress- 
volume  plane  vas  observed  in  the  vicinity  of  the  HEL  for 
both  alloys.  This  convex-upward  region  f  negative 
curvature  leads  to  a  gradually  rising  nonsteady-state 
stress  profile  between  the  precursor  and  aain  wave. 

Errors  of  5  or  10  percent  Bay  result  in  calculated  Hugoniot 
points  if  this  region  is  ignored  and  a  simple  one-  or  two- 
wave  structure  assused  instead.  Fair  correlation  was 
obtained  between  the  stress  records  and  the  stress  histories 
calculated  on  the  basis  of  the  Bauschinger  node!  in  the  SRI 
PUFF  2  code.  The  model  appears  to  represent  both  alloys 
qualitatively,  but  the  numerical  values  of  the  model 
parameters  for  each  metal  require  further  investigation. 


SECTION  V 


STUDY  OF  TITANIUM 

I.  Introduction 

Hie  preliminary  investigation  of  titanium  alloys  was  directed 
toward  establishing  Hugoniots  in  the  low  stress  range,  measuring  shock 
attenuation,  examining  strain  rate  effects,  looking  for  phase  transitions, 
and  observing  the  stress  wave  appearance. 

For  structural  purposes,  titanium  is  usually  alloyed  with  other 
materials  to  improve  its  mechanical  properties.  Pure  titanium  is  in  the 
alpha  (hep)  crystal  phase  at  roan  temperature.  Eut  with  the  addition  of 
certain  alloying  metals,  the  high-temperate  e  beca  (bcc)  phase  can  be 
retained  at  room  temperature. 

These  alloys  were  selected:  type  50A,  commercially  pure  (99.2  per¬ 
cent)  titanium,  that  is,  all  alpha  phase;  T1-6A1-4V  (6  percent  aluminum, 

4  percent  vanadium),  an  alloy  with  mixed  alpha  and  beta  phases;  and 
Ti-13Cr-llV-3Al  (73  percent  titanium,  13  percent  vanadium,  11  percent 
chromium,  3  percent  aluminum),  an  alloy  that  is  all  beta  phase.  The 
T1-6A1-4V  alloy  was  selected  because  it  is  a  material  of  practical 
importance  that  has  been  studied  at  intermediate  strain  rates,  where  it 
exhibited  strain  rate  sensitivity  (Ref.  8).  The  50A  titanium  and  Ti-13Cr- 
1 1V-3A1  were  chosen  to  study  independently  the  behavior  of  each  of  the 
constituted  phases  of  the  T1-6A1-4V  alloy. 

The  titanirim  alloys  were  supplied  by  Titanium  Metals  Corporation  of 
America,  Los  Angeles,  in  thicknesses  of  1/16  inch  to  1-1/8  inches.  It  d  ,d 
not  appear  to  be  economical  nor  possible  within  the  time  requirements  to 
form  all  sheets  of  an  alloy  from  a  single  billet.  Therefore, the  manu¬ 
facturer  selected  sheets  from  billets  with  a  nearly  identical  chemical 
composition.  All  sheets  were  supplied  fully  annealed,  and  no  tcmperli^ 
or  work  hardening  was  performed  at  SRI  on  the  sheets. 

A  table  of  quasi-static  mechanical  properties  of  these  alloys  is 
included  here  for  reference  (Table  7),  Some  of  the  information  was  ob¬ 
tained  from  our  quasi-static  and  acoustic  measurements  listed  in  Appendix 

II,  some  from  Molchanova  (Ref.  42),  from  Titanium  Metals  Bulletins 
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Table  7 


PROPERTIES  OF  TESTED  TITANIUM  ALLOTS 


Alloy 

- 

Density 

(g/cm3) 

Young 's 
Modulus 
(kbar) 

Yield 

Strength 

(kbar) 

Poisson’s 

Ratio 

— 

Phase3 

Type  50A 

4.507 

1070 

3.5 

0.328 

alpha 

T1-6A1-4V 

4.424 

1210 

9.5 

0.314 

alpha 
and  beta 

Ti-13V-llCr-  3A1 

4.839 

1040 

_ i 

9.3 

0.332 

beta 

Alpha  phase  is  hexagonal,  close  packed;  beta  is  body-centered  cobie. 
The  percentage  of  alpha  and  bet  in  Ti-6A1-4V  depends  on  the  heat 
treatment.  Both  T1-4A1-4V  ai  l-13Cr-HV-3Al  are  heat-treatable. 


(Ref.  43,  44),  and  from  Harman  (Ref.  45).  The  Young's  modulus  varies 
from  1000  to  1200  kbar  for  all  the  heat-treatable  alloys,  depending  on 
the  heat  treatment.  It  is  lowest,  of  course,  for  annealed  alloys  (and 
io.r  pure  alpha,  which  is  not  sensitive  to  heat  treatment),  higher  for 
solution  treated  alToys,  and  highest  for  aged  and  solution  treated. 
Hence,  particularly  at  low  stresses,  one  would  not  expect  a  unique 
Hugoniot  for  a  heat-treatable  alloy.  The  Hugoniot  for  pure  titanium  is 
given  by  McQueen  and  Marsh  'Ref.  46). 


U  =  ‘..779  x  105  +  1.089  U  (102) 

s 

where  Us  and  U  are  shock  and  particle  velocity  in  centimeter/second . 
The  corresponding  PUFF-form  for  the  Hugoniot  is 

12  109  111 

P  «  1.028  x  10  ‘/U  +  1.21  x  10%  +  2.06  x  101AjU  (103) 

where  is  pressure  in  dyne/cm3. 
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2.  Dynamic  Experiments 


Both  gas  gun  and  HE  impact  experiments  were  conducted  on  the  three 

chosen  titanium  alloys.  The  experimental  arrangement  for  the  gas  gun 

tests  was  similar  to  that  used  for  the  aluminum  impacts  (Fig.  8),  except 

that  titanium  flyer  plates  were  bonded  directly  to  the  aluminum  projectile 

* 

and  mangauin  in  Hi-D  glass  transducers  were  used.  Configuration  B 
(Fig.  9)  with  manganin  in  07  transducers  and  optical  instrumentation 
were  used  for  the  HE  experiments.  The  Hugoniot  data  obtained  from  these 
tests  are  summarized  in  Figs.  33  through  36  and  Table  8. 

The  present  data  for  type  50A  titanium  agrees  closely  with  data 
from  studies  of  Walsh  et  al.  (Ref.  47)  and  McQueen  and  Marsh  (Ref.  46). 

They  used  a  gap  technique  that  is  not  capable  of  resolving  multiple 
shock  waves  associated  with  phase  transformations.  In  spite  of  the  phase 
transformation  (described  later)  beginning  around  50  kbar,  there  is  good 
agreement  between  our  data  and  theirs.  This  indicates  that  the  dynamic 
phase  transition  is  associated  with  only  a  small  overall  density  change 
and  has  little  effect  on  shock  velocity. 

The  Hugoniot  points  above  100  kbar  were  obtained  with  the  HE  system. 

In  all  HE  experiments  the  elastic  wave  was  overdriven;  therefore,  a  steady- 
state,  single-wave  analysis  procedure  (the  impedance  match  method)  was 
used  to  reduce  the  data. 

In  t*e  gas  gun  experiments,  the  maximum  stresses  were  below  100 
kbar.  The  precursor,  a  second  wave  associated  with  a  phase  change  in 
the  case  of  pure  titanium,  and  a  gradually  increasing  stress  between 
waves  were  in  evidence  in  the  stress  transducer  records.  Two  of  these 
records  ore  shown  in  Fig.  37.  The  upper  figure  shows  the  wave 
aused  by  the  phase  transformation.  These  complexities  in  the  wave 
front  necessitated  the  use  of  the  integration  procedure  of  Section  III.l 
to  determine  the  stress-volume  and  stress-particle  velocity  relations. 

The  results  of  these  integrations  are  shown  in  Figs.  35  and  36. 

The  static  yield  strengths  and  Hugoniot  elastic  limits  from  the  gas 
gun  experiments  on  the  three  alloys  are  listed  in  Table  9.  (Neglecting 
strain-rate  effects,  the  HEL  and  static  yield  strengths  of  an  isotropic, 


*  See  Section  1II.2.C 
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AXIAL  STRESS, o-  — hbor 


A  a  Ti  (Type  5QA),  a.  =  4,51,  PRESENT 
DATA 

<7  /9Ti(Ti-l3Cr-IIV-3AI),/>  *4.84, 
PRESENT  DATA 

O  a-AlTilTI-fiAI-AV),,,  *4.42, 
PRESENT  DATA 

O  aTi,^0  s  4.51,  McQUEEN  AND 
MARSH  (R*f.  46) 

□  aTi,/>0s4.5l,WALSH*tol,(R*f.4T) 

HU60NI0T,  a  onfl  a-&  Ti  ( from 
Rtf.  46  ond  47  for  aTI  ) 

- HUfiONIOT,  ESTIMATED,  0Ti 

(  )  DENOTES  UNCERTAIN  DATA 
POINTS 


RELATIVE  VOLUME, V/Vfe — dinwwioNttt 


FIGURE  34  STRESS-VOLUME  HUGONIOT  DATA  FOR  TITANIUM  ALLOYS 
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AXIAL  STRESS 


A  a  TITANIUM  (type  50A) 

O  9-0  TITANIUM  (TI-SAI-4V) 

V  0  TITANIUM  (Ti“IJCr-IIV-3Air 


TRANSITION- 


COMPRESSION  PATHS' 


0.93  Q94 


Q9S  Q96 


0.99  099 


RELATIVE  VOLUME,  V/Vfe 


FIGURE  36  STRESS- VOLUME  HUGONIOT  DATA  AT  LOW  STRESSES 
FOR  TITANIUM  ALLOTS 
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Tablt  8 


HUGONIOT  DATA  FOR  THREE  TITANIUM  ALLOYS 


Ct  Tltaalun*  Type  50A,  pg  »  A. 51  f / cn3 


Final  Hugonlot  State 

Speclnen 

Axial 

Specific 

Shock 

Shot  No. 

Driver  Syataa 

Tklcknaaa 

Streaa 

Volume 

Velocity 

0 

«H| 

V 

U 

(n) 

(kbar) 

(c«3/g) 

(m/liaec) 

G  899 

Goa  gun;  projactlla 

velocity  ■  0.468  an/fliec 

9.93 

86.  S 

0.233 

0.211 

— 

G  904 

Caa  run:  projectile 

valoclty  •  0.91S  mm/ flue 

5 

HI  system  D;  driver  free 

9.95 

82.2 

0.258 

0.210 

— 

73,826* 

aurface  velocity  •  1.96 

aa/fiaec 

9. OP 

211 

0.835 

0.189 

5.63 

13,927 

§ 

HE  system  B;  driver  free 

aurface  velocity  *  4.85 

■m/Jfeec 

4.83 

879 

2>  14 

0.154 

7.01 

H  Titanlun, **Tl-13Cr-llV-3Al, 

0q  *  4.84  g/cm3 

G  819** 

13,824  tf 

Gaa  gun;  projactlla 
valoclty  •  0.919  an/pbac 

8.97 

70 

0.299 

0.197 

.. 

HE  syateai  driver  free 

aurface  velocity  -  2.04 

un/uaec 

KK  ayaten  B;  ^driver  free 

8.76 

234 

0.819 

0.178 

5.94 

13,927 

aurface  velocity  •  4.83 

aaa/ftoec 

6.94 

712 

2.05 

0.147 

7.13 

a  . 

IS  Tltaniia^+tTl 

-6A1-4V,  0g 

4.47  g/cn3 

0  79l" 

0  919  ** 

Gaa  gun  ahota,  average 

Projactlla  valoclty  .  0.914  ” 

19.9 

11 

89.0** 

0.798*^ 

0.216^ 

±  0.001  an/pMc 

1 

HE  ayataai  D;  *  driver  free 

9.72 

13,9.3 

aurface  velocity  ■  2.10  m«/|frec  5.52 

(237) 

(0.999) 

(0.193) 

(9.08) 

13,827 

NX  system  B;  *  driver  free 

surface  velocity  •  4.85  mm/f*ec  4.B4 

1 

712 

2.09 

0.147 

7.13 

*  Tin  following  UUnNdUta  atat.a  mra  ohaurvwd  on  Shot  0389:  an  KEL  of  0  •  IS. 8  kbar, 
u  a  0.0404  aa/panc,  V  a  0.218  aaVc;  and  a  phaaa  traaaforaatloe  at  O  a  SO.O  kbar, 

II  a  0.104  IB/Jfeac,  V  a  0.I1S  ca’/f. 

*  Takan  to  ba  oaa-balf  tba  projactlla  valoclty. 

*  la  Shot  13,828  a  C-7/aa^anln  atraaa  traaaducor  on  tba  T1  apaclnau  rocurdod  a  final  atraaa 

-I  n  kbar.  Tba  oo-Nugoolot  particle  valoclty  aaaoctatad  with  82  kbar  ia  u  a  1.48  an/Jbac. 

Thu  0  -ii  atata  rapraaanta  an  axparlnantal  dataralnatloa  of  a  point  on  tba  ralaaaa  ad  1« bat 
on  Ti  abookad  to  211  kbar. 

^  Saa  Tabla  1  tor  daacriptloa  of  HI  ayataoa. 

**  On  Shot  0  818  tba  EEL  *aa- aaaaurad  to  ba  O  •  34.4  kbar,  u  •  0.1218  an/Uec,  V  •  0.202  ca*/g. 

**  Or  Shot  13,824  tba  apaclnan  fraa-aurfaca  valoclty  waa  oboarvad  to  ba  1.9  i  0.3  an/iaiac.  Tba 

largo  aiparlnoatal  uncartalaty  la  cauaad  by  a  larfo  akock  tilt. 

M  On  Shota  0  T91  and  0  819  tba  avaraco  **L  «aa  datanalaod  to  ba  O  ■  19.0  kbar,  u  •  0.0838  aa^ibac, 
V  a  0.224  CbVg. 

ft  Aisrafad  data  fron  Shota  0  T81  and  0  919. 

'**  Larfa  anpariaaatal  uncertainty  din  to  poor  traaalt  tian  nlrror  cutoff a  on  atraak  caaara  record. 
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Table  9 


COMPARISON  OF  STATIC  AND  DYNAMIC  YIELD  STRENGTH  IN  TITANIUM 


Alloy 

Static 

Yield 

(kbar) 

Hugoniot 

Elastic 

Limit 

(kbar) 

HEL  predicted 
from  static  yield 
and  Poisson's  ratio 
(kbar) 

Type  50A 

3.5 

12.8 

6.  *5 

T1-6A1-4V 

9.5 

15 

17.5 

Ti-br-iiV-3Al 

9.3 

34.4 

18.4 

homogeneous  material  obeying  a  von  Misee  or  Tresca-type  yield  criterion 
are  related  by 


This  equation  was  used  to  calculate  the  values  in  the  fourth  column  of 
the  table.)  The  HEL's  for  the  type  50A  tit  nium  and  Ti-13Cr-llV-3Al 
alloys  are  nearly  double  those  calculated  from  the  static  data  (column  4 
of  Table  9).  By  constrast,  the  observed  HEL  for  T1-6A1-4V  is  lower 
than  that  calculated  from  static  data.  In  the  stress  records  the  T1-6A1- 
4V  alien  exhibited  a  wide  yielding  zone  between  the  precursor  and  male 
wave  extending  from  the  HEL  to  2.3  times  the  HEL  (an  example  of  such  a 
range  is  shown  in  Fig.  37b).  The  other  alloys  showed  a  smaller  yielding 
zone  (in  type  50A,  the  yielding  zone  extended  only  to  1.3  timea  the  HEL). 
The  extensive  yielding  zone  in  T1-6A1-4V  is  caused  by  a  significantly 
rounded  yield  ’point"  in  the  stress-strain  curve.  This  rounded  yield 
point  also  helps  to  explain  the  occurrence  of  a  low  HEL.  The  experi¬ 
ment  lly  measured  HEL  actually  corresponds  to  the  "proportional  limit," 
the  stress  at  which  the  st  ass-strain  curve  first  deviates  from  a 
linear  relation.  Normally,  the  proportional  limit  ia  aamewhrt  smaller 
than  the  so-called  yield  strength  (0.2%  offset  definition  used  here).. 

For  a  well-rounded  yield  point,  the  proportional  limit  could  be  much 


lower  than  the  0.2%  offset  yield  point 
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FIGURE  37  MANGANIN  STRESS  RECORDS 

FROM  TEST  GS6B  ON  TYPE  SOA 

titanium  and  res’  am 

ON  T}-GA1-4V 


The  disparity  in  dynaaic  yield  behavior  of  th«3  three  titanium  alloys 
indicates  that  low  strain  rate  yield  data  are  not  adequate  to  predict 
dynaaic  yielding  in  these  aetals.  The  large  Increase  in  yield  strength 
for  alpha  and  beta  titaniua  at  high  strain  rates  is  soaw  Justlf  cation 
for  the  inclusion  of  a  rate-dependent  yield  criterion  in  wave  propagation 
calculations.  However,  attenuation  of  the  elastic  precursor  (a  definite 
sign  of  strain-rate  effects)  was  not  observed  in  any  of  the  titaniua  experi¬ 
ments  over  propagation  distances  ranging  froa  5  m  to  9.5  me.  This  does 
not  imply  that  stress  relaxation  does  not  occur  over  distances  less  than 
5  mm.  The  work  of  Isbell  and  Froula  {Ref.  48)  Ou  wry  thin  targets  indi¬ 
cated  that  although  stress  relaxation  was  important  over  abort  distances, 
no  further  relaxation  occurred  after  propagation  distances  of  7  an;  this 
is  consistent  with  our  results. 

As  mentioned  above,  indication  of  a  dynamic  phase  transition  was 
observed  in  type  50A  titanium  (see  Fig.  37a).  Shock  loading  to  a  peak 
stress  of  56.5  kbar  caused  the  plastic  wave  to  split  into  two  waves, 
which  is  the  effect  produced  by  transformation  times  that  are  comparable 
to  or  less  than  the  wave  transit  time.  The  separation  of  these  waves 
was  very  small  even  after  transit  through  a  3/8-inch-thick  sample,  indi¬ 
cating  that  the  overall  volume  change  associated  with  thia  transition  or 
partial  transition  is  small  (approximately  0.2  percent).  The  transition 
stress  was  50  kbar  and  the  transition  was  overdriven  in  subsequent  experi¬ 
ments  at  a  stress  of  62  kbar.  Our  observation  of  such  a  transition  was 
subsequently  corroborated  by  Isbell  and  Froula  (Ref.  48).  No  such 
transition  wave  was  observed  in  either  T1-6A1-4V  oar  Ti-13Cx— 11V-3A1 
titaniua;  however,  any  auch  transition  is  expected  to  occur  st  different 
pressures  in  these  allays,  and  the  ease  with  which  the  transition  wave 
can  be  overdriven  in  5QA  titaniua  auggeata  that  it  may  taka  considerable 
investigation  to  discover  a  like  transition  in  the  other  two  alloys. 

Rarefaction  velocities  were  obtained  as  a  function  of  stress  level 
from  the  low  stress  experiments.  These  velocities  are  ah awn  is  Table  10 
as  a  function  of  stress  level.  These  rarefaction  velocities  appear  to 
coincide  with  the  shock  velocity  of  the  HKL  (except  la  the  case  of  the  all 
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Table  10 


RAREFACTION  AND  SHOCK  VELOCITIES  IN  TITANIUM  ALLOYS 


Shot 

No. 

Material 

Peak 

Stress 

(kbsr) 

Wave  Velocities 

To  HEL 

To  Peak 
(am/fisec) 

Initial 
Release 
from  Peak 

G  604 

Type  50A 

62.0 

6.1 

5.05 

6.1 

G  791 

T1-6A1-4V 

65.0 

6.3 

5.20 

6.3 

G  818 

TI-6A1-4V 

65.0 

6.3 

— 

6.3 

G  819 

Ti-13Cr-llV-3Al 

70.0 

5.8 

— 

6.2 

bet*  alloy).  Such  a  coincidence  of  rarefaction  and  initial  shock  velocity 
is  actually  predicted  by  the  model  of  perfect  plasticity.  Hence,  this 
simple  plastic  model  might  be  sufficiently  accurate  for  titaniur  alloys: 
the  more  complex  Bauachinger  model  would  not  be  required.  A  determination 
of  the  appropriate  model  should,  however,  be  made  from  a  comparison  of 
computed  and  experimental  stress  records. 

3.  Initial  and  Terminal  Observations  of  Shocked  Titanium  Specimens 

Initially,  the  50A  titanium  ("as-received")  had  slightly  elongated 
grains  of  about  30  diameter.  The  average  Vickers  hardness  (500  gran 
load)  was  142.  Baaed  on  the  relative  intensity  of  X-ray  reflection  from 
flat  apeciments,  one  may  conclude  that  there  is  some  preferred  orientation 
of  the  grains.  After  shocking  to  56  kbsr,  the  Vickers  hardness  of  one 
specimen  had  increased  to  200.  Microstructurol  changes  are  clearly 
evident  in  this  specimen.  Nearly  all  the  grains  appear  heavily  marked 
with  parallel  acta  of  lamellae  which,  for  the  most  part,  completely 
traverse  a  grain  (see  Fig.  33).  However,  tome  grains  show  addl  local 
markings  that  do  not  appear  to  bo  twins  but  which  sore  cloeely  resemble 
a  transformation  structure.  X-ray  diffraction  examination  of  tve  shock- 
loaded  sample  disclosed  no  evidence  of  new  phases;  so  say  transformation 
taking  place  during  the  shock  must  have  reverted  to  alpha  on  release  of 
pressure. 
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FIGURE  M  mOTOkKCROGMPH  OF  TYFf  50A 

titanium  sample  after  king 

SHOCKED  TO  86  kiwr 

Derlbas  et  al.  (Ref.  50)  have  described  experiments  in  which  titan¬ 
ium  was  shock  hardened  to  400  Vickers.  They  report  a  ni Croat rue ture 
character! red  by  immense  distortion, ”  similar  to  that  observed  in  iron 
shocked  to  pressures  in  excess  of  iJ  kbar.  They  do  not  specify  the 
pressure  used  to  obtain  this  result;  f ran  thei;  ll-**'-*  description  of 
the  experiments,  ee  can  estimate  that  pressures  in  the  range  of  150  to 
400  kbar  were  us  ■*.  bhile  positive  identification  of  the  high- pressure 
phase  is  not  possible,  it  is  presumed  to  be  the  well-known  omega 
(hexagonal)  phase  known  to  exist  tor  tome  titasiua  and  zirconium  alloys. 
According  to  Jamieson  (Ref.  49),  the  volume  change  for  the  alpha-omega 
transition  in  pure  titanium  la  about  2  percent  at  1  atm.  Re  reported 
that  the  omega  phase  of  titanium  can  be  retained  at  1  atm,  but  that  it 
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reverts  to  the  alpha  structure  after  prolonged  heating  at  110  C.  Deribas 
et  al>  (Ref.  50)  did  not  report  the  presence  of  omega  phase  in  their 
hardened  specimens,  and  it  appears  likely  that  the  residual  temperature 
of  the  shocked  titanium  after  release  of  pressure  was  too  high  to  permit 
survival  of  omega  in  their  experiments. 

Our  present  interpretation  of  our  experimental  results  is  that  a 
partial  transformation  of  alpha  titanium  to  the  omega  phase  took  place 
at  a  pressure  of  50  kbar.  (The  pressure  required  for  the  static  transi¬ 
tion  is  not  known).  A  volume  change  at  the  transition  of  at  most  0.2 
percent  may  be  inferred  from  the  transducer  records.  If  one  assumes 
that  the  volume  change  for  the  alpha-omega  transition  at  50  kbar  is 
roufc.ily  the  same  as  the  1-atm  volume  difference  measured  by  Jamieson,  it 
would  appear  that  about  10  percent  of  the  alpha  titanium  transformed  in 
this  experiment.  This  result  is  consistent  with  both  the  present  metal- 
lographic  results  and  with  the  increase  in  hardness  observed .  One  may 
infer  from  the  results  of  Deribas  -et  al.  (Ref.  50)  that  a  large  pressure 
excess  is  required  to  drive  the  transformation  to  completion  in  the 
microseconds  or  submicroseconds  available  in  shock  experimen ' s .  Titanium 
thus  appears  to  behave  in  a  manner  similar  to  that  of  iron  (Ref.  51). 
Although  the  transformation  of  iron  to  the  epsilon  phase  has  been  inferred 
to  begin  at  shock  pressures  as  low  as  120  kbar,  complete  transformation 
requires  a  shock  pressure  of  about  160  kbar.  In  the  case  of  pure  iron, 
the  high  pressure  phase  is  not  retained  on  release  of  pressure.  The  great 
hardening  effect  observed  in  shock  loaded  iron  has  been  attributed  to  the 
dislocation  structure  produced  by  the  transformation  of  epsilon  to  alpha- 
iron  on  release  of  pressure.  Thus,  alpha  titanium  appears  to  undergo  a 
phase  transformation  initiated  by  a  shock  stress  of  50  kbar  and  completed 
in  the  range  of  150  to  400  kbar.  The  extent  of  transformation  depends  on 
the  stress  level  reached.  During  unloading  in  titanium,  the  high  pressure 
phase  (probably  omega)  is  retransformed  to  alpha  with  a  considerably 
higher  hardness  than  the  original  material. 

The  microstructure  of  the  shocked  alpha-beta  alloy  (Ti-6A1-4V)  was 
indistinguishable  from  the  unshocked  material.  The  virgin  material  had 
a  Vickers  hardness  of  300  (500  gram  load).  The  shock  loaded  specimen  had 
a  very  marginal  increase  in  hardness  to  Vickers  318. 
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The  microstructure  of  tie  shocked  beta  alloy  (Ti-13V-llCr-3Al)  was 
distinguished  by  the  presence  of  parallel  sets  of  lamellae  (see  Fig.  39) 
presumably  twins,  which  closely  resemble  the  twi  formed  by  shocK  loading 
iron,  molybdenum,  tungsten,  chromium,  and  other  body-centered  cubic  metals 
and  alloys  below  any  transition  pressure.  The  Vickers  hardness  of  the  un¬ 
shocked  material  was  300  (500  gram  load) ;  the  shocked  specimen  had  the 
same  hardness.  It  appears  then  that  no  transformations  occurred  in 
Ti-6A1-4V  or  Ti-13Cr-llV-3Al  during  the  passage  of  shock  waves  with  stresses 
up  to  70  kbar. 


PHOTOMICROGRAPH  OF  TI-13V- 
11Cr  3A1  TITANIUM  SPECIMEN 
AFTER  BEING  SHOCKED  TO 
70  kbar 
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SECTION  VI 


STUDY  OF  WOVEN  QUARTZ  PHENOLIC 

1 .  Introduction 

Preliminary  experimental  and  calculational  investigations  have  been 

performed  to  examine  shock  wave  propagation  properties  between  about  10 

and  200  kbar  for  a  three-dimensional  (3-D)  weave  quartz  phenolic  material. 

if 

The  purposes  of  these  studies  were  to  obtain  preliminary  Hugoniot~type 
information  for  this  material,  to  observe  the  character  of  stress  waves 
that  a  highlv  aniso.ropic,  heterogeneous  material  will  support,  and  to 
determine  how  well  present  wave  propagation  theory,  as  incorporated  in 
the  SRI  PUFF  2  code,  is  able  to  simulate  stress  wave  profiles  in  an 
anisotropic,  heterogeneous  mater:  1. 

2.  Material  Description 

The  specimen  material,  supplied  by  the  Air  Force  Weapons  Laboratory, 
was  a  composite  consisting  of  an  orthogonal  3-D  weave  of  quartz  filament 
potted  in  a  phenolic  resin  matrix.  Table  II  lists  descriptive  data  supplied 
by  AFWL  with  the  specimens.  The  orthogonal  weave  of  the  quartz  filaments 
is  most  easily  visualized  in  terms  of  a  Cartesian  coordinate  system  with 
the  Z  axis  in  the  direction  of  the  axis  of  the  right  cylindrical  specimen. 

The  weave  was  nearly  orthogonal  because  all  filaments  lay  approximately 
In  tH*  X.  Y,  or  Z.  direction.  In  the  Z  direction  the  .  .iMneni,..  wore  grouped 
together  into  well-contained,  apparently  straight  bundles  of  square  cross 
section  with  a  0.025  inch  average  width.  These  axial  bundles  intersected 
the  X-Y  planes  (cylinder  faces)  in  a  square  array  with  a  0.1  inch  average 
distance  center  to  center.  According  to  Table  11  there  were  0,58  x  10®  axial 
filaments  per  square  inch  intersecting  the  X-Y  planes.  The  filaments  in  the 
and  Y  directions  were  also  arranged  into  bundles,  but  of  apparently 
rectangular  cross  section.  The  width  of  a  lateral  bundle  was  approximately 

*  A  true  Hugoniot  point  refers  to  an  equilibrium  state  achieved  through 
a  steady-state  shock  front.  In  the  woven  material,  the  wave  front  is 
nonuniform  and  not  steady  state.  Equilibrium  between  the  filaments  and 
resin  requires  a  relatively  long  time  and  is  therefore  probably  not  estab¬ 
lished  during  the  recording  time  of  the  experiment.  The  Hugoniot-type  data 
derived  from  the  experiments  were  obtained  with  traditional  impedance  match 
techniques,  neglecting  the  fact  that  many  of  the  conditions  for  valid 
Hugoniot  data  were  not  met. 
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Table  11 


★ 

DETAILED  MATERIAL  DESCRIPTION  OF  3-  D  ^’JARTZ  PHENOLIC 


Property 

Measurement 

Average  material  density 

1.69  g/cm 3 

Average  acoustic  velocity  in 
axial  direction 

0.350  cm/p  sec  @  l.C  MHz 

Resin  matrix 

SC-1008  Phenolic 

Resin  content 

33.  T3  by  weight 

Average  diameter  of  filaments 

0.00034  inch 

Number  of  filaments  in  lateral 
(X)  direction 

2.30  x  108  filaments/inch2 

Number  of  filaments  in  lateral 
(Y)  direction 

2.30  x  10s  filaments/inch2 

Number  of  filaments  in  axial 
(Z)  direction 

0.58  x  106  filaments/inch2 

Number  of  filaments  per  axial 
bundle 

1920 

Bundle  size  and  spacing  in  the 

Z  direction 

0.025  on  0.1  inch  centers 

+  This  information  was  supplied  to  SRI  by  AFWL. 
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0,075  inch  and  the  thickness  was  about  0.025  inch.  These  lateral  bundles 
were  woven  in  a  2-D  basket  weave  with,  for  example,  a  given  X  bundle 
passing  over  1  to  8  Y  bundles  and  under  a  similar  n  -'ber.  The  weave 
was  not  perfect  but  had  an  average  or  macroscopic  rotational  symmetry 
of  90°  about  the  Z  axis.  The  separation  in  the  Z  direction  between 
parallel  lateral  bundles  was  about  0.05  inch  center  to  center. 

Acoustic  measurements  were  made  to  determine  the  longitudinal 
velocity  in  the  thickness  direction.  The  velocity  associated  with  the 
initial  arrival  averaged  4.51  mm/tisec.  This  veloc ' ty  corresponds  with 
a  longitudinal  molulus  (\+2p  or  K  +  4/3p,)  of  3.4  x  .011  dynes/cm2. 

3.  Has  Gun  and  HE  Experiments 

The  compression  states  measured  in  five  gas  gun  and  HE  experiments 
performed  in  the  3-D  weave  quartz  phenolic  9tudy  material  ar  summarized 
in  Table  12  and  Figs.  40  and  41;  the  results  are  discussed  below.  It 
must  be  pointed  out  that  the  nature  of  the  quartz  phenolic  specimens,  as 
well  as  direct  experimental  observations  indicated  that  the  flow  was  not 
steady-state.  In  this  case  the  compressive  "Hugoniot"  states  reported 
in  Table  12  and  Figs.  40  and  ”re  characteristic  of  uniaxial  flow  shock 
wave  experiments  on  2  to  4-mm-thick  specimens,  but  caution  should  be 
employed  when  applying  them  to  other  experimental  conditions.  For  the 
V  jrpose  of  describing  gross  average  macroscopic  response  of  material  of 
a  given  thickness,  we  have  neglected  the  deviations  from  steady-state 
flow. 

* 

Three  gas  gun  shots  were  fired  on  the  u-D  quartz  phenolic  discs  as 
received.  Two  discs  were  impacted  by  1/2-inch  thick  2024  aluminum 
projectiles  to  obtain  Hugoniot  data  (Shots  13,421  and  13,423)  and  one  by 
a  0.0186-inch-thick  annealed  Rluminum  flyer  plate  (backed  by  2  lt/cu  ft 
polyurethane  foam)  to  obtain  shock  attenuation  information  (Shot  13,422). 


*  These  experiments  were  performed  under  Contract  F29601-67-C-0072. 
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axial  stress 


FIGURE  41  STRESS-PARTICLE  VELOCITY  HUGONIOT  DATA  FOR  3-0  WEAVE 
QUARTZ  PHENOLIC 


Instrumentation  on  the-e  shots  consisted  of  two  10~phm  manganin  wire 
gages  in  0-7  epoxy.  (High  resistance  10-ohm  gages  are  used  ir.  low 
stress  experiments  to  improve  the  s^ gnal -to-noise  ratio.)  In  one  gage 
the  mangan  .n  element  was  positioned  o  nifs  ■•rich  ba^l.  into  the  c -/  from 
the  speciman  -  C-7  interface;  in  the  other  it  wa»  0.080  inch  back  (the 
latter  distance  being  about  the  same  as  the  width  of  the  lateral  quartz 
fibers  in  the  target).  In  all  three  gun  shots  the  gage  in  which  the 
element  was  set  back  0.080  inch  gave  a  shorter  rise  time  and  a  lower 
stress  for  the  main  wave  than  the  nearer  gage.  These  changes  in  the 
wave  appearance  may  be  caused  by  convergence  of  the  uneven  wave  front 
in  the  quartz  phenolic  into  a  planar  wayefront  in  C7,  damping  of  oscillat¬ 
ions  in  the  C-7,  and  tendency  of  the  wave  to  shock  up  in  the  C-7.  Because 
of  the  recorded  ei'idence  of  nonsteady  wave  propagation  in  the  C-7,  the 
gage  with  the  element  nearer  the  interface  was  used  to  determine  the 

reported  loading  stcte  in  the  specimens.  Those  states  were  calculated 

* 

by  the  impedance  match  method  using  measurements  of  the  specimen  wave 
velocities  and  the  projectile  velocities,  using  the  known  Hugoniot  for 
the  2024-A1  projectile. 

Figure  12  shows  a  post-sh^t  photograph  of  the  recovered  specimen 
and  projectile  head  for  Shot  13,421.  The  lateral  qufrtz  filament  bundles 
appear  as  wide,  li^it  traces  in  the  photographs  of  both  target  and 
projectile,  and  form  a  nearly  orthogonal  grid.  The  small,  dark  squares 
represent  the  axial  Utndles.  These  axial  bundles  left  a  deeper  imprint 
on  the  aluminum  projectile.  The  noticeable  variation  in  the  imprint 
across  the  impact  surface  indicates  the  sharp  differences  in  short 
impedancerf  among  the  target  materials.  The  wave  in  the  quartz  phenolic 
target  and  at  the  inte-fj-c*  between  the  target  and  the  C-7  epoxy  will 
not  be  a  smooth  plane  shock  but  will  be  ''dimpled."  As  the  wave  propagates 
into  the  homogeneous  C-7  epoxy,  the  faster*  higher  str*.*'-.  portions 
that  enter  the  unsbocked  ma'erial  first  ■  hould  gradually  be  dispersed 

The  use  of  the  term  "irpedance  match  method"  Is  not  completely 

Justifiable  here  because  the  wave  is  neither  planar  nor  steady  state. 
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FIGURE  42  RECOVERED  3-D  WEAVE  QUARTZ 
PHENOLIC  TARGET  AND  ALUMINUM 
GAS  GUN  PRQJFCTILE  HEAD  WHICH 
IMPACTED  IT.  Impact  velocity  =  0.85 
mm//isec,  Impect  stress  =  37  kbar. 
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by  nonuniaxial  flow.  The  wave  in  C-7  is  thus  expected  to  bee  me  pro¬ 
gressively  smoother  as  it  propagates,  which  it  apparently  does  (as 
indicated  by  the  shorter  rise  time  measured  with  the  0.080  inch  gage). 
Further  confirmation  of  the  dimpled  nature  of  the  shock  front  is  noted 
in  the  HE  experiments  discussed  later. 

The  "effective''  macroscopic  average  Hugoniot-type  data  measured  by 
the  manganin  gages  in  the  C-7  transducer  material  are  displayed  along 
with  the  quartz  phenolic  loading  data  in  the  stress-particle  velocity 
plane  of  Fig.  41.  It  is  evident  from  this  figure  that  the  gage  stresses 
do  not  represent  a  reliable  measure  of  ^e  release  states  for  the  quartz 
phenolic  as  they  should  for  steady  state  shocks.  The  disagreement  is 
attributed  to  stress  measurement  uncertainties  associated  with  the 
dimpled  character  of  the  wave  impinging  on  the  manganin  wire  stress  gage: 

.  Local  areas  of  the  wire  sense  different  peak  stress  levels 

arriving  at  different  times.  Hence,  the  actual  level  recorded 
at  the  oscilloscope  corresponds  to  some  average  of  the  local 
stresses  in  the  shock  wave  mesh  traversing  the  wire  at  a  given 
time. 

,  The  resistance  change  in  the  manganin  due  to  compressive  stress 
(causing  decrease  in  resistance)  may  be  masked  by  local  strains 
in  the  manganin  caused  by  stretching  of  the  wire  (and  an  increase 
in  resistance)  as  it  is  traversed  in  the  lateral  shock  by  the 
uneven  wave  front. 

In  Shots  13,421  and  13,422  there  was  some  evidence  of  the  possible 
formation  of  a  precursor  in  the  quartz  phenolic  with  a  wave  speed  of 
approximately  4,5  mm/p.sec  and  a  peak  stress  estimated  from  manganin  gage 
data  to  be  about  1  kbar.  The  stress  record  from  he  attenuation  shot, 

Shot  13,422,  is  shown  in  Fig.  43.  In  traversing  9,^*  mm  of  quartz 
phenolic,  the  shock  stress  attenuated  from  abo"*  30  kbar  to  4  kbar. 

The  recorded  rise  time  was  about  1  jxsec,  i.e.,  longer  than  the  rise  time  of 

the  "Hugoniot"  shots.  The  record  shows  a  possible  precursor  at  0.6  kbar 
in  C-7  and  a  reflection  of  the  precursor  off  the  main  wave  at  1.3  kbar. 

Two  HE  experiments  were  performed  on  the  quartz  phenolic  discs. 

The  specimens  were  impacted  by  a  high-velocity  (  ~  3  miu/jisec) ,  1/8- 
inch-thick  2024-T8  A1  flyer  to  obtain  both  shock  and  rurefftetion  wave 
propagation  information.  Normal  4-ohm  manganin  C-7  gages  (Ref. 33)  -(gage 
element  0.010  inch  into  C-7  from  interface)  were  used  to  monitor  the 
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FIGURE  43  COMPARISON  OF  COMPUTED  AND  RECORDED  STRESS 
HISTORIES  FOR  SHOT  13,422.  3-D  quartz  phenolic  was 
impacted  by  a  thin  aluminium  flyer;  stress  was  recorded  in 
C-7  behind  target. 


stress  profile  transmitted  to  C-7  by  the  quartz  phenolic.  The  high¬ 
speed  streak  camera  techniques  described  in  Section  XII.2.b  were  used 
in  the  same  experiments  to  record  the  specimen  Hugoniot  state  and  the 
shock  T'1anarity.  The  manganin  gage  record,  after  data  reduction, 
obtained  for  the  2.78-mm-thick  specimen  is  shown  in  Fig.  44.  Note  that 
in  the  HE  experiment  the  rise  time  is  about  50  nsec  and  the  peak 
stress  fluctuates  by  more  than  10  kbar,  while  in  the  low-stress  gas  gun 
experiment  the  rise  time  is  about  500  nsec  and  the  peak  stress  fluctuations 
are  negligible.  Peak  stress  variation  (with  a  period  of  approximately  0.1 
jxsec)  which  we  attribute  to  the  dispersive  nature  of  the  3-D  specimens 
are  apparent  and  support  the  previous  observation  of  nonsteady  flow.  The 
rise  time  of  ~  0.02  p,sec  was  probably  caused  by  the  nonplanarity  of  the 
impact  and  therefore  is  not  necessarily  associated  with  dissipation  mechan¬ 
isms  in  the  material.  The  rise  times  observed  in  the  HE  experiments  are 
considerably  shorter  than  those  observed  in  the  gas  gun  experiments 
because  (a)  the  shock  tilt  problem  is  reduced  at  high  projectile  velocities 
(b)  at  the  higher  stresses  the  shock  transit  times  through  both  the  quartz 
and  the  phenolic  phases  of  the  target  are  considerably  reduced,  resulting 
in  less  variation  in  absolute  time  of  arrival  along;  the  gage;  and  (c) 
differences  in  th6  chock  velocities  of  quartz  and  phenolic  are  leas  at 
the  stress  levels  of  the  HE  experiments  than  at  those  of  the  gun  shots. 

No  evidence  of  a  precursor  is  seen  in  the  KE  experiments.  This 
observation  is  consistent  with  the  results  of  the  gas  gun  experiments, 
since  at  high  stresses  the  observed  shock  velocity  is  considerably  greater 
than  the  precursor  velocity  measured  in  the  gas  gun  experiments.  The 
quartz  phenolic  release  data  obtained  from  the  C-7  manganin  gages  in  the 
HE  experiments  have  a  large  uncertainty  (similar  to  that  discussed  for 
the  gun  shots),  presumably  because  of  the  dimpled  nature  of  the  wave 
front  transmitted  by  the  3-n  weave  quartz  phenolic. 

4 .  Theoretical  Calculations 

A  limited  number  of  calculations  were  made  with  the  SRI  PUFF  2  code 
using  the  usual  equation  of  state  for  a  solid  (Eq.29)  to  model  the  woven 
quartz  phenolic.  One  computation  was  made  to  simulate  a  Hugoniot  shot  and 
another  to  model  the  attenuation  experiment.  The  purpose  wan  to  compare 
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FIGURE  44  TYPICAL  MANGANIN  WIRE/C-7  TRANSDUCER  RECORDS 

OF  STRESS-TIME  PROFILES  INDUCED  IN  C-7  BY  HIGH-STRESS 
(HE)  AND  LOW-STRESS  (gn  gun)  SHOCK  IN  3-D  WEAVE 
QUARTZ  PHENOLIC 
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the  peak  stress  attained,  the  rise  time,  and  the  arrival  time.  The  j 

I 

comparisons  weie  intended  to  show  whether  a  satisfactory  prediction  : 

could  be  made  with  the  usual  equation -of -state  formulation.  If  not, 

the  mputed  results  should  indicate  the  types  of  modifications  required. 

The  "effective''  equation  of  state  of  the  composite  materx^j.  was 

taken  fro»i  the  data  of  Fig, 40  to  be  U  -  2.79  +  1.25  U  (mm/jisec)  and 

s  p 

cast  in  the  usual  PUFF  form: 

p  =  1.273  x  10T1U  +  2.1S7  x  10llp,  +  0.837  x  10llH3 

* 

Yield  strength  was  taken  to  be  zero,  and  only  normal  values  of 
artificial  viscosity  were  employed  in  the  computations. 

The  first  calculation  simulated  the  attenuation  shot,  No.  13,422,  The 
2024-T8  aluminum  flyer  was  represented  by  the  Bauschinger  model  with  the 
parameters  determined  in  Section  IV.  The  computed  stress  history  at  the 
compos it e/C -7  interface  is  shown  in  Fig.  43  for  comparison  with  the 
experimental  record.  The  computed  history  shows  significant  attenuation 
from  the  computed  impact  stress  of  37  kbar.  The  arrival  time  of  the  com¬ 
puted  wave  crest,  coincides  with  that  of  the  experimental  record,  indicat¬ 
ing  that  average  wave  velocities  are  correctly  represented  by  the 
analytical  equation  of  state.  The  most  striking  differences  between 
recorded  and  computed  histories  ere  the  overestimate  of  peak  stress  and 
the  underestimate  of  rise  time. 

The  portion  of  Shot  13,560  with  the  thinner  specimen  was  also 
modeled  by  a  computation.  The  stress  history  at  the  position  of  the 
manganin  wire  is  shown  in  Fig.  44  for  comparison  with  the  measured 
history.  The  computed  rise  (governed  by  cell  size  and  artificial 
viscosity)  is  about  two  times  as  large  as  the  measured.  The  peak 

stress  is  comparable  to  the  average  but  is  not  so  osclllatoi  . 

- -  -  -  -  -  -  -  *  . 

* 

A  normal  value  of  artificial  viscosity  for  a  computation  is  that  which 
is  sufficient  to  cause  the  total  mechanical  stress  to  follow  a  straight 
compression  path  (the  Rayleigh  lir.s)  during  a  passage  of  9  shock.  For 
the  present  computations  the  coefficient  of  nonlinear  viscosity  was 
4.0  and  the  linear  coefficient  was  0.2. 
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The  following  are  probable  causes  for  the  discrepancies  between 
the  computed  and  experimental  records: 

1 .  Computational  effects: 

,  Cell  sizes  used  in  the  finite  difference  computations  were 
0.0001  to  0.001  inch,  i.e,,  considerably  smaller  than  the 
scale  of  inhomogeneity  of  the  woven  material. 

.  Artificial  viscosity  was  of  normal  magnitude,  which  usually 
spreads  a  shock  front  over  four  finite  difference  cells. 

This  combination  of  cell  sizes  and  viscosity  used  in  the  calculations 
would  normally  lead  to  rise  times  longer  than  those  observed  experimentally 
for  solids  and  did  produce  a  longer  rise  time  than  that  seen  in  the  high- 
stress  experiments. 

2c  Experimental  effects: 

.  The  wavefront  in  quartz  phenolic  exhibited  dispersion  of  the  wave 
front  associated  with  the  variation  of  wave  velocity  between 
constituent  materials.  The  oscillatory  top  of  the  stress 
wave  at  high  stresses  and  long  rise  time  at  low  stresses  are 
indications  of  this  dispersion  phenomenon. 

.  Frictional  dissipation  or  material  strength  which  increases 
with  pressure  is  a  possible  dissipation  mechanism. 

.  Viscous  damping  is  present  in  both  the  resin  and  th  filaments 
(see  Kolsky,  (Ref. 28)  for  example). 

.  Concavity  of  the  C-7  Hugoniot  would  lead  to  more  rapid  steepening 
of  the  shock  front  at  high  stresses  than  low. 

.  A  gage  of  finite  dimensions  has  an  averaging  effect  on  a  stress 
field  with  w  spatial  variation. 

All  three  dissipation  mechanisms — dispersive,  frictional,  and  viscous — 
are  present  and  may  contribute  significantly  to  the  observed  behavior. 

The  marked  differenc  '  'tween  the  comparisons  at  low  and  high  pressures 
leads  one  to  suspect  that  some  of  the  dissipation  mechanisms  are  highly 

stress  dependent.  A  general  model  for  romposite  material  should  probably 
Include  all  three  dissipation  effects. 


SECTION  VII 

SUMMARY  AND  RECOMMENDATIONS 


1.  Summary 

Four  models  for  stress  relaxation  were  selected  and  implemented  in 
the  SRI  PUFF  2  wave  propagation  program.  Their  characteristics  were 
compared  with  those  of  a  general,  or  standard,  stress  relaxation  model 
and  discussed  on  the  basis  of  several  computer  calculations.  Dominant 
features  of  the  computed  results  for  all  models  were  the  attenuation  with 
distance  of  the  precursor  and  main  wave  and  the  extent  to  which  these  two 
waves  were  separated.  Criteria  were  described  for  selecting  a  model  and 
the  model  parameters, 

A  computational  model  representing  the  Bauschinger  and  related  time- 
independent  effects  was  constructed  on  the  basis  of  previous  experimental 
and  theoretical  results  and  the  present  experimental  data.  The  model 
was  implemented  in  the  SRI  PUFF  2  computer  program,  and  test  runs  were 
made  to  indicate  the  nature  of  the  results  obtainable. 

An  experimental  technique  and  a  elated  data  analysis  method  were 
developed  for  obtaining  complete  loading  and  unloading  compression 
paths  in  the  stress-volume  and  stress-particle  s'elocity  planes.  The 
analytical  method  was  derived  and  applied  to  the  present  aluminum  and 
titanium  data.  The  method  requires  data  from  stress  and/or  particle 
velocity  gages  embedded  at  a  series  of  locations  in  the  target  during 
an  impact  experiment.  Valid  results  can  be  obtained  for  both  stress- 
relaxing  and  rate-independent  materials  during  Mugoniot  and  attenuation 
experiments. 

Impact  experiments  were  conducted  on  6061-T6  and  2024-T8  aluminum 
alleys  at  stress  levels  of  15  to  600  kbar.  Hugoniot  data,  release  adiabata, 
and  peak  rarefaction  velocities  were  obtained.  Peak  rarefaction  velocities 
were  considerably  higher  than  those  predicted  by  the  standard  el aatlc* plastic 
theoretical  model;  and  the  unloading  adiabat  was  smooth,  showing  no 
break  at  an  unloading  point  as  predicted  by  the  elastic-plastic  model. 

Records  at  50  kbar  and  580  kbar  were  compared  with  computations  made 
with  the  Bauschinger  model.  Conclusions  drawn  from  the  comparisons 
were  that  the  model  has  the  correct  form,  although  some  psraswters  could 
have  been  chosen  more  felicitously.  No  stress  relaxation  effects  were 
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observed  in  the  aluminum,  probably  because  the  samples  were  all  thicker 
than  those  for  which  time-dependent  precursor  decay  is  important. 

Impact  experiments  were  made  on  samples  of  the  common  structural 
titanium  alloy  T1-6A1-4V  (mixed  alpha  and  beta  phases),  type  50A 
titanium  (pure  alpha  phase),  and  Ti-13Cr-llV-3Al  (pure  beta  phase)  in 
the  range  15  to  750  kbar.  Hugoniot  data,  Hugoniot  elastic  limits 
(HEL),  and  an  alpha  phase  transformation  data  were  obtained.  The  HEL  in 
pure  alpha  and  pure  beta  was  double  that  predicted  from  static  yield 
data,  but  the  HEL  in  mixed  alpha-beta  was  about  as  predicted.  However* 
in  the  mixed  phase  material  there  was  a  large  elastic-plastic  transition 
ranging  from  15  to  35  kbar.  The  phase  transformation  from  alpha  to  probably 
omeba  phase  at  50  kbar  in  the  pure  alpha  metal  showed  only  a  small 
change  in  shock  velocity  and  specific  volume,  and  was  overdriven  at  62  kbar, 
suggesting  that  only  about  10  percent  of  the  material  transformed  at  this 
stress.  Ho  transformations  were  observed  in  the  other  alloys  for  stresses 
up  to  70  kbar. 

Pive  impact  experiments  were  made  with  woven  quartz-phenolic  to 
obtain  preliminary  Hugoniot  data  for  stresses  from  10  to  200  kbar.  The 
records  show  uneven  wave  front,  oscillation  in  stress  at  the  top  of 
the  wave,  questionable  release  adlabat  data,  and  a  very  thick  shock 
front  at  the  lower  stresses.  An  attenuation  shot  with  a  0.47  mm  aluminum 
flyer  yielded  a  stress  reduction  to  15  percent  of  the  Impact  stress  on  the 
0.46  mm  quarts  phenolic  target,  and  a  rise  time  of  1  psec.  A  theoretical 
prediction  for  the  attenuation  shot  based  on  a  normal  solid  model  gave 
much  less  attenuation  *nd  a  steeper  shock  front.  Evidently,  highly 
affective  dissipative  mechanisms  are  op'-at lug  in  the  woven  material 
which  have  not  yet  been  modeled  theoretically. 

S.  Eecommendations 

The  calculations  with  the  bauschlnger  model  have  led  to  significantly 
improved  results  for  attenuation  and  unloading  wave  forms  in  two  aluminum 
alloys;  the  model  should  be  used  whenever  sufficient  materials  data  are 
available  fee  implementation. 
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The  presently  formulated  Bauschinger  model  should  undergo  further 
development  to  make  it  more  adaptable  to  other  materials  and  for  a  wider 
range  of  stresses.  Specifically, 

.  more  experimental  data  should  be  obtained  on  rarefaction 
velocities  and  unloading  adiabats  over  a  wide  range  of 
stresses  in  materials  of  structural  and  experimental 
interest,  and 

.  the  model  formulation  should  be  expanded  to  Include  a  shear 
modulus  and  yield  strength  that  are  functions  of  specific 
volume  and  internal  energy. 

Testing  should  be  undertaken  in  two  areas  which  were  only  considered 
briefly  in  this  report: 

.  impacts  on  preheated  specimens  to  map  the  equation  of 
state  and  unloading  relations  at  higher  temperatures,  and 

.  reverse  phase  transition  during  unloading  in  materials 
undergoing  phase  transitions  during  compression.  The 
ml  tipi  e-gage  analysis  should  be  particularly  useful  in 
sucb  a  study. 

The  standard  impact  experlmet.  s  in  woven  materials  do  not  yield 
strictly  valid  Hugoniot  data  because  of  the  nonequilibrium  states  reached 
during  the  shock.  The  nature  of  the  states  achieved  should  be  studied 
theoretically  to  Indicate  how  to  use  the  Hugonlot-like  data  for  analytical 
predictions. 

Experiments  should  be  conuucted  to  map  the  pseudo-equation -of -at ate 
surface  for  a  woven  material  as  a  basis  for  theoretical  predictions.  The 
data  could  be  obtained  from  impact'  for  a  large  range  of  stress  levels, 
and  with  samples  which  have  been 

.  preheated  to  increase  Initial  internal  energy,  and 

.  manufactured  wi;h  substantial  porosity  so  thst  very  large 
Internal  energlea  would  be  created  during  impact. 

Streaa  levels  used  should  Include  those  required  for  vaporisation. 

An  equation  of  atate  for  woven  materials  should  be  formulated  and 
implemented  in  a  PUFF- type  wave  propagation  code.  The  formulation  should 
Include  frictional  damping,  viscous  damping,  dispersion  caused  by  adjacency 
of  materials  with  different  wave  velocities,  and  a  delay  mechanism  such  as 
stress  relaxation. 
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Thi»  P«g«  intentionally  left  blank. 
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APPENDIX  I 


TEST  RUNS  AND  LISTING  OF  THE  SRI  PUFF  2  COMPUTER  CODE 


1 .  Introduction 

This  appendix  presents  test  routines  and  results  that  can  be  used  to 
validate  the  use  of  the  SRI  PUFF  2  computer  code  on  computers  other  than 
those  at  SRI.  The  code  was  developed  to  run  on  the  CDC  6400  at  SRI.  It 
is  a  modification  of  SRI  PUFF  1  to  Include  stress  r?laxation  and  Bauschinger 
effects. 

Any  difficulties  encountered  in  using  the  code  on  other  machines  will 
probably  arise  from  differences  in  interpretation  of  some  FORTRAN  state¬ 
ments  or  possibly  in  running  new  types  of  problems.  Usually  these 
differences  will  trigger  machine  diagnostic  statements  or  they  will 
result  in  catastrophic  errors.  In  the  case  of  diagnostics,  the  error 
is  located  by  the  machine,  and  it  can  then  be  corrected.  For  catas¬ 
trophic  errors,  the  programmer  needs  some  assistance  in  locating  the  source 
of  the  error.  We  have  tried  to  provide  this  assistance  in  two  ways: 
inclusion  of  data  for  test  runs  that  will  exercise  all  major  portions  of 
*.ne  code,  and  Insertion  of  prints  from  ench  subroutine.  The  test  run* 
Include  impact  and  radiation  deposition  problems  and  rezoning  problems 
for  solid  and  porous  materials.  The  prints  In  each  subroutine  indicate 
the  route  taken  through  the  subroutine  (i.e.,  which  branch  of  each  IF 
statement  Is  used)  and  list  the  main  input  and  output  quantities  of  the 
subroutine.  These  prints  are  triggered  by  presetting  the  constant  MAXPt 
to  the  number  of  prints  derired  from  the  subroutines  HYDRO,  J STRESS, 

HAFSTKP,  BUST,  POREQST,  and  SSCAL.  Similar  prints  ere  obtained  . .-am 
RAUSCH  I,  RELAX  and  BANDRLX  by  settlor  Seraa  Switch  3. 

Six  test  problems  are  described  in  the  following  page*.  The  first 
problem  has  been  run  in  three  versions:  a  short  test  with  triggering  of 
prints  from  each  subroutine,  a  short  test  with  slightly  altered  data,  and 
a  full  run  with  normal  printout  only.  Some  output  from  all  three  of  these 
runs  la  given.  For  the  other  five  test  problems,  only  the  full  run  was 
made.  For  all  of  the  runs  the  major  part  of  the  output  is  giver  in  the 
fora  of  plots. 
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2 .  Input  and  Sample  Output  of  Test  Problems 
a.  Test  No.  la 

This  problem,  a  test  of  the  Bauschinger  model  implemented  in  the 
i  ■  code,  concerns  the  impact  between  a  6061-T6  aluminum  flyer  and  a  target 

of  the  same  material.  Behind  the  target  is  a  manganin-glass  stress 
j  transducer.  The  problem  corresponds  with  c  ot  670  described  in  Section 

IV.  This  calculation  is  performed  in  three  versions:  a  short  calculation 
with  printouts  from  many  of  the  subroutines,  a  short  calculation  with 
printouts  but  using  a  slightly  altered  data  deck,  and  a  full  run.  The 
If  •'ting  that  follows  is  for  the  first  of  these  computer  runs.  The  listing 
includes  the  input  data  (which  is  essentially  a  reproduction  of  the  data 
i  cards),  the  initial  layout  of  the  coordinate  grid,  test  prints,  the  final 

EDIT,  and  the  stress  histories. 
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SRJ  PU PP  1  (6*80  VERSION)  «•*« 


date  «os/er/«9 

ID6NT  b  1  A  SHORT  trial  SUN  ON  8AtiSCMTN0£»  MODEL  FOR  406I-T6 

COMPUTATIONS  CORRESPOND  TO  The  S8  KBAR  data  OP  RO«KR  KJLLIAnS  PO»  *961-76 
ALUMINUM.  THE  BaUSCHINSER  MODEL  is  USED  FOB  BCTM  TKE  alter  amo  target, 
the  jeujts  here  placed  AT  THE  APPROXIMATE  THICKNESSES  op  the  three  thinner 
specimens  SO  that  the  computation  models  ALL  POUR  experiments. 
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TEST  la:  PORTION  OF  COORDINATE  LAYOUT 


TEST  la:  PORTION  OF  TEST  PRINTS 
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TEST  ta:  FIRST  PAGE  OF  FIN  ->L  TIME  EDIT 
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b. 


Test  No.  lb 


This  computation  Is  identical  to  test  la  except  that  all  the  noninteger 
data  are  altered  by  0.1  percent.  The  listing  includes  the  input  data 
initial  layout  of  the  coordinate  grid,  test  prints,  the  final  EDIT  and 
the  stress  histories. 


si 


•••»  sat  puff  i  <4400  version)  ***• 


DATE  >03/07/69 

IOEnt  -  1  8  SHORT  TRIAL  RUN  ON  SAUSCHIN8ER  NODES.  FOR  6061-T6 

COMPUTATIONS  CORRESPOND  TO  THE  SO  K8AR  OATA  OF  R08ER  WILLIAMS  FOR  69».T6 
ALUMINUM.  THE  SAUSCH1NOER  MODEL  IS  USED  FOR  ROTH  THE  FLVER  AND  TARGET. 

THE  JEOITS  WERE  PLACED  AT  THE  APPROXIMATE  THICKNESSES  OF  THE  THREE  THINNER 
SPECIMENS  SO  THAT  THE  COMPUTATION  MODELS  ALL  FOUR  EXPERIMENTS. 

THIS  COMPUTATION  WAS  CONTINUED  FOR  ONLY  FIVE  CYCLES  WITH  PRINTS  FROM  EACH 
SUNROUTINE.  THE  DATA  FOR  18  ARE  SLI0MTLV  ALTERED  FROM  THOSE  OF  1A. 

1  NTEDT>  7  NJEDI Y>  6  NREZONa  0  NSEPRAT"  0 

2  TEDITS»  3. 003E-0T  6.000E-07  9.000C-07  1.200E-06  1.600E-06  2.00QE-06  2.400E-06 

3  JEOITS-  50  60  128  172  239  251 

6  NEDTM-  190000  NEOIT-  10000  NPERN  ■  1  MAXPRN  -  1 

HAXPR  -  100  ISO  100  100  100  100  100  100  100  100  100 

7  STOPS  JCVCS  ■  5  CKS  -  3.50QE*00  TS  -  3.009C-C6 

6  NMTRLS-  3  NATFL  •  1  U2ERO  ■  6.030E*04  IPLOT  u  0 

6061-T6  Al  FLYER  RHO  ■  2.709E*00  NSRM  -  S  NY AM  ■  1  NPOR  ■  0  NCON  -  0 

E05TC  -  6.677EM1  EOSTD  ■  1.001C«12  EOSTE  -  1.221E»11  COST*  >  2.042E«00 

EQSTH  -  2.S03E-01  COSTS  a  0.  COSTN  a  9.A86E-01  COSTA  a  6.205C-12 

COSO  a  4.004E«00  Cl  a  5.003E-02  C2  a  0. 

TENS(l)a  -1.001EM1  TENS (2) a  •1.00lE«U  TENS13)-  -1.C01E*11 

XPO  a  6.006E*03  XP  a  1.001E*00  MUUN  a  4.675E*U  YADF  a  1.001E«00 

70  a  3.213E«09  MU  a  2.673E**1  YADO  a  3.794E«10 

NZONES-  l.  23  CELLS  IN  1.S39C-01  CM  >0.  -0. 

6061.76  *L  TARGET  RHO  a  2.709C»00  NSRM  a  S  NtAM  a  1  NPOR  a  0  NCON  a  0 

ECSTC  •  6.677E* 1 1  CQSTO  a  1.00lC«12  CASTE  a  1.221E*ll  COSTS  2.042Z*00 

EOSTH  a  2.503E-01  COSTS  a  0.  COSTN  a  9.R86C-01  COSTA  a  8.28SC.12 

COSO  a  4.004E*00  Cl  a  5.005C-02  C2  ■  0. 

TENS ( 1 ) ■  >1.001011  TENS(2)a  -l.OOiuMl  TCNS)3)a  .l.oolC«ll 

XPO  a  6.006E»03  XP  a  1.00lC*Q0  MUUN  a  4.67SE*11  YADF  a  1.09lC»00 

YO  -  3.213E*09  MU  a  2.6?3E*U  YADO  a  3.T94CM6 

NZONES*  1.  210  CELLS  IN  1.2SOC«00  CM  -.0.  -0. 

GLASS  UN  GAGE)  RHO  a  2.S20C*00  NSRM  a  0  NY AM  a  0  NPOR  a  0  NCON  a  0 

EQ3TC  a  8.7095*11  EOSTD  a  -6.789E*11  COSTS  a  3.003E*10  COSTS  a  2.Q02C.00 
EOSTH  a  2.303E-0I  COSTS  a  0.789C*U  EOSTN  -  5.A01E*00  COSTA  u  5.746E.1X 

COSO  a  4.004E«00  Cl  a  3.005E-02  C2  •  0. 

TENS < 1 ) ■  -1.001E*U  TENS (21«  -1 . 001C* 11  TENS (3) a  .1 . «01C*1 1 

NZONES"  1.  30  CELLS  IN  3.153E-01  CM  OELX  a  6.006E-03  >0. 
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TEST  1b:  PORTION  OF  COORDINATE  LAYOUT 
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TEST  1b:  PORTION  OF  COORDINATE  LAYOUT 
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TEST  1b:  FIRST  PAGE  OF  FINAL  TIME  EDIT 
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Test  No.  lc 


This  computs^ion  represents  the  normal  production  run  of  Te3t  1. 

The  results  are  a  sample  of  those  obtainable  with  the  Bauschinger  model. 
The  listing  included  in  the  following  nages  contains  the  input  data,  one 
page  of  the  initial  layout,  the  final  momentum  EDIT,  time  EDIT,  and  two 
pages  of  the  stress  histories.  In  addition,  there  are  computer-generated 
plots  of  deviatorie  stress  versus  specific  volume,  of  stress-distance 
curves,  and  stress  histories. 


146 


SR J  PUFF  1  (4400  VERSION} 


OATE  -05/00/09 

10CNT  «  1  C  NORMAL  RUN*  TEST  or  BiUSCHINGCR  MODEL  ON  A0A1-T4 

CCnPUT»TIONS  CORRESPOND  TO  THE  50  K85R  0*T*  Of  ROGER  WILLIAMS  FOR  6041-T& 
aluminum.  THE  8*USCM!NGER  MODEL  IS  USED  FOB  ROTH  THE  FtTER  AMO  TARGET. 

Tmf  J£l»ITS  WERE  PLACCO  AT  THE  APPROXIMATE  THICKNESSES  OF  THE  THREE  TMIHNER 
SPECIMENS  SO  that  THE  COMPUTATION  MODELS  ALL  FOUR  EXPERIMENTS. 


1  NTEflT- 

T 

NJCOITa 

» 

NREIONa 

0 

NSCPRATa 

c 

2  TEOITS 

*  3.000E-0T 

O.OOOE-OT 

9.000C-07 

1.200E-0* 

1.600C-06 

2.000C- 

06 

2.4QQE-36 

3  UEMTS 

■  SO  SO 

128  172 

239  j91 

6  NEOTM- 

100000 

NCDlTa 

10000 

NPERN  a 

1 

-0 

T  STOPS 

JCYCS  • 

1250 

CKS  a 

3.500E.00 

TS  » 

3.000E-06 

S  NMTHLS 

■  3 

MATFL  ■ 

1 

UIERO  a 

6.03CC0A 

1PL0T  a 

0 

60M-T6 

*L  FLYEB 

RHO  ■ 

2. TORE. 90 

,  NSRM  B  s 

NYAM  a  1 

NPOfta 

,  0 

NCON  «  0 

eostc  - 

6.fcT0E.n 

EQSTO  - 

1  .QOOE.12 

EQSTE  a 

1 .220E.1 1 

EOSTC  a 

2.040E.00 

eosth  - 

2.500E-01 

COSTS  • 

0. 

.EOSTN 

R.AR3E-01 

EQSTA 

G.2BSC-12 

COSO  - 

A.OOOC.OO 

Cl  • 

5.000E-02 

•0. 

TENS ( 1 ) * 

-l.OOOE.ll 

TENS : 2 ) ■  -l.OOOE.ll 

TENS ( 3) ■  -l.OOOE.ll 

XPO- 

6.000C03 

XPo 

l.OOOC.JJjJ 

.  MUUN  a 

*.6T0E*Il 

YAOF  a 

l.oooc^oe 

TO  a 

3.2i0E*09 

MU  ■ 

2.670E* 1 1 

yTOO  a 

3.790E.  1 C 

NIONFS- 

1 .  25 

CELLS  IN 

1 .S37C-01 

CM  DELXa  -0. 

-9. 

6061-T6  *L  TAOOET 

RHO  • 

2. TORE. 00 

NSRM  «  5 

NYAM  a  1 

HYOR  m 

0 

NCON  a  0 

EOSTC  « 

4.6T0E.11 

EQSTO  a 

1.000C.12 

EQSTE  a 

1.22CC11 

tOSTC  a 

Z.040C.00 

eosth  ■ 

2.500E-01 

COSTS  a 

0. 

CQSTN 

9.MR3E-01 

COSTA 

8.285E-12 

COSO  « 

4.000E«00 

Cl  a 

5.00CE-02 

•0  • 

TENSdl- 

-1.000E«11 

TCNS(2|a  -l.OOOE.ll 

TENS ( 3}  ■  - 

l.OOOE.ll 

XPO* 

6.000E.03 

XPa 

1.000C.00 

MUUN  a 

4.AT0E.11 

VADF  a 

l.fOCE.OO 

YC  ■ 

3 .21  Of  *09 

HU  a 

2.670E.11 

YAOD  ■ 

3.TR0E.10 

NIONES*  1 

1.  210 

CELLS  IN 

1.25TC.00 

CM  OE'.Xa  -0. 

•Ob 

GLASS  <MN  OAOC) 

RHO  ■ 

2.520F.00 

NSRM  a  0 

NYAM  a  0 

NPOR  ■ 

0 

NCON  a  J 

Ejsyc  " 

C.780E'  11 

COSTO  -  - 

■8. T80C.11 

FQSTC  a 

3.000E.10 

COST*  a 

2.0QCC90 

EOSTh  • 

2.50CC-01 

COSTS  a 

B.780C.11 

COSTN 

5. ROTE. 00 

EQSTA 

5.T40E-18 

COSO  « 

A.OOOE.OO 

Cl  - 

5.006C-02 

. 

•0. 

TENS(1I- 

-l.oooou 

TfTS(2)a  - 

l.OOOE.ll 

TENS<3)»  - 

l.OOOE.ll 

N20?vCS«  1 

»  30 

CELLS  IN 

3.150E-01 

CM  DEL*  a 

6.0C9E-93 

- 

•6. 

TEST  1c: 


INPUT  DATA 


2  £**  *  SSSSC  SS  & 5S*«5iSSS5«n55i? ?!?S  *?'$♦? *£ 


«t^tZXXIX>nZI>Z2SZSZtZI2J  «  zzzzzzzzzzzzzzzzzzzzzzz 


KKKCCftKKJKcacftasKftacaaaaass  w  w  w  w  u  w  w  wwuuuuwyuwwbiuiii  ww  u 

MW  Uiww  WWW  MM  WWW  MMWMMMMMMWMM  ff  «d3u09(l#«Odd»S>^ 

•>  >■  ►  ►►►  V-  >-  ►>  >-  v>  ►>>->'>>-v>->  >•>  ►>  a  iff  sftaffeaftafta  a.  a.«*.  a  aaata  at  *  nr 

f  444<<<<<<<44C4  «C  «  <7<<^<<<< 
khLkkl.kl«,kkkktk.kh.k.h.kWh.b.b-kk.kkh.  h  I-  4-4-»-^l-4->->-9-  *-  »-  9-  9-9-9- 

i :::::::::::::::::::::::: 

►  9-  ►>  ►-  ►  9-9-  »->  ^  h>>K  h>>  ►>  ►»  4-  »-  h>  HK 

<  1ll999|9fllf99ll|llll9l9l9  9  999*9999999999999999999 


l«0  00000««« 

tOOOOOOOOO 


OOOOCOOOOOOOCOOOO' 


MMWAlNNNN9»MNNM(ynM9!N9IMNNNNN  N  NNNAiMMNMAlNNNNMMNNN  NNNWN 

rcnnnnncnnoonnnnnoooonooe  o  ooooooooooeoooooooooooe 

«MI  m  I  III  Ml  I  II  III  I  II  I  I  I  I  I  •  •9fl9l9l9999J9tl»ll9  919 

-9  S  WWWWMWWWWWWW  WWWWWWW^JW  WWW  W  W  WWWWWWWWWWWWWWfrWWWWW  WWW 

«*  tfxruttftincn  ruro  *>  MNMNnMNNNMNNNnntaNNMNNNnN 


*>\n®n 

■**  f  O  (9® 


*  M  r>«  *4  «■«  *4  « 

99999949999999999999k 

IWWWWWWWWWMWWWWUIWWWWWWI 

>ooo®o®®ooooooooooocoo< 


I  WWWWWWWWI 
>000000004 


•  ►  O  OO  4 
0  9  9  9 


>0000000000004 


m  9  9  9 

X  WWW 
U»99 
VO®  o 

*  9- 

•  •  *  • 


®*®«®®00®®®00®0®®®000®0® 

0000000000000  c 0000000000 
999999999949999999999999 
WWWWWWWWWWWWWWWWWWWUJWWWW 

»  •  *  **eo**ooooouooooo 

OOO  O AO OOOOOOOOOOOOOOOOOO 


>p40*p4p«'-«0«p«p«p 

I  I  1  I  I  I  I  I  I 
>00000000*1 
>000000004 
44444949> 

lajlWWWWWWWI 

>ooooooooe 

>000000004 


NMMnwMnnnwnNnnNNwnnnnNNni 

000000004  o  rvooooc  O  0  0*00  OOOl 


N  N(VNN(VMMrj(UNN( 


MTinrinnioiriri 

>000000004 


IWWWWWWWWWWWWWWWWWWWWWI 

ooooooooooooooooooooo 


0000000000000000000000004 

Mo®o®oo0o«ooeonoooooooooe< 

X4»4444494444494949944449' 
UkfMMWMWMWWtrJWMMMMWWWWMMMMMI 
.  \>oo«tt®o®  o®  o«oo®ooooooeooo< 


O  OO'OC^'C’O'fiOOOOOOO'COOOOOOO 
O  OOOOOOOOOOOOOOOOOO' 00000 

O  OOOOOOOOOOOoOOOOOOOOOOO 
4  4  4  4  4  9  4  444444444^444444 

W  MMWWWMMWUMMUMWWUJMWWUJUMkltft* 
O  000000004D000000000400000 


NNCanNMNNNNNnf4NN«INNNnftNMNM  Aj 

0000000000000^*000000000000 
U999V4444444444444449444944 
■  WWWWWMWWIriWWIiJWUlWWWWWIUWMWWWWW 
lOOOOOOOOOOOOOOOOOOOOOOOOOOO 
'  \rtfirt4)wnnnnwnnn«nftr)wnn«Mf>nfirj 


W  NWnNNNNNWiyNlWNNlMWNWNWNWl 


444)®®04l9«4)09«9494)94)««<<a4l94>  O  OOOOOQOOOOOOOOOOOOOOOOO 


OOOOOOOOOOOOOOOOOOOOC.OO'J’I' 

W  W  W  W  W  M  kJ  W  U  M  W  W  W  W  W  W  W  W  W  M  W  M  HI  W  W 
X  •o<®<9<cnttf)®nM9N0^ao^n<®k 

OM>«N,VI*l4<in 


!  ®  O  M  r-  fVJ  ,v  1*)  <  <  I 


nrtnwwnnfMnnnrMnnfnnwnnnwnnnn  *n  f»wnnntn«r 

OOOOOOOOOOOOOOOOOOCOOOOOO  004D000004 

9ll9t99i|fl999S9999tl99B>  9  9  9  9  I  I  9  I 

WWWWMWbIWWMWWWWWMWWWWWWWWW  .  J  WWWWWUIWI 

l®V«0Ofit9««S«99SS®<O»®9V]}CM>  <'  «  «  «  «  4)  «  «  : 

U<<<-4<v<<<<4<<<<<<<<<<<<<<  000000009 


•~*0ir?<‘>n'04»C3C'  0«f!f>9lfl*K«9  0Hft|f>4in* 


INNNMMNNNI 


>000000004 

9  9  9  9  9  9  9  B 

IMUUUUUMWh 
1  O  <0  O  <0  0  C  4)  ®  4 
fonnnnasttc 

•  o  o  o  c»  e  o»  c»  err 

•  ••••«••« 

Mr>cntr>tfMr>ir>inir« 

>  m(vm  <  in  <oh-  oc 


148 


TEST  1c:  COORDINATE  LAYOUT 


D»TC  ■  *5/06/*»  1DCNT  a  t  C  NO»N»L  RUM.  TEST  Of  »AUSCH1N«CR  MODEL  ON  «061*T6 

i  ox  XfJI  U<J?  YHLUI  C<J>  D*J>  T  C  J>  2HUUJ  MXTEBUL  COMO 

CM  CM  CM/SCC  0YN/CM2  CM/S  *  0M/CM3  0YN/CM2  OM/CM? 


Z22fXZYSZf ?Z7ZIXX2ZX2ZZ?tirXXIXSXZSXfSf tSfSYIXS32Y 

*vi  w>  an  *  m  &  mm  <*«i  MirttfMft9)«>iftv»QftV)«t«Mr*>tfnrttfHOtft«rt<n'n<A 

ftaABaaeasftftBBsaK  aeibKafti«fticHBiiasKS?KieiKK8BftBB« 
JJ J JJJJ JJJ J JJJJJ JJ J J. JJJJJJJ J J JJ J JJ JJJJJ JJ J 


«««<»«>< 


3000060000000000000 


oooooooooooooooooc 


OOCCOOOOOOOOOOOOOOOOOCOOOOOOOOOCOOOOOOOOOOOOOOOOOO 

ykiwbiyMMwwyiuiuwwy  y  whiMwyhiwwwttfyiakiwywikkiwuwhiuywukiyiiiwuyww 

MlUftNNMft 

AlNMM(W^(VJNrwN<VAMV(VMAJMNMNMMWNNNNNMMAirwNN(UMMMWNMWM(MIWNNAlNM 

vO'oe^'Goooooooooo-.a'aooo'***********'**'*******'***'**'***** 


kiuiMwwui  w<  wkiuiy  wwywy^wMwy  mww 

OOOOOOOOOOOOOOOOOOOOOOOO 


oooooooooooooooooooooooooo 


10  0  0  0  4 
10  0  0  0  4 


toooooooooooooooooaiooaooooii 


WMUk)  wyy  wwuytyiuyiMyybJWkty  wuwMWWUwy  wwwuwiMhiiuuyuuuiuwiMWiuwM 

OOOOCOOOOOe«OOO4l«»4IO4l€IOO4»OOOO«O0aOO9OaOOOOOa)«OOOOOO 

^N»>*r-P-KM  *>*»»>»*»  *>*»*-»*«*>»- 


*>  mm  m  +  m  mm  *>  torn*  mm  *>**+***%**  nwn*  mum  m  *>m  m  »» m  **  w  *  m  n>  m  *  * 

o  o*o  o  o-o  o  o cu*)  oo4>ooo  oo  o  o  o  o  •  o  o.o«*  a o  o  oo  o  oo  o  o'04»o  ooooo  o  oe  o  e 
WWItWklWUMhlhiWWhlWkMtflllUlyWWMWWWItfelUhllUWWWUMWMWMMWIIIIWIlWMIMiy  tel 


OCOOOOOOOOO000O«O000OOO001>00000004l004l004|l0000000000 

uiy  uuy  w  wwuww  wwwy  wywwww  wuiuiu  wwwuiMWMy  wwww  wwMwwwwteWkiwwM 
00900000000004»«60a00000«0  00000004>04|0000tt00#0«0000e 
♦ 

•  ••••••t4««»«»»«»»««««s*C4«*«444444ft»44t4»t4«4»449 

NNN^te^NMteNMNNMNWNNfUNMNMWteMNWNMNNMMNftNMNtelilMMMteteNNNte 


OOOCAOOOOOOOOOOOOOOOOOOOOOOO^OOdOOOOOOOOOttOOOOOOOtt) 


OO  ‘'•000004»eo00000000e04l0000004»4i«a00^04l000«000«4l<»4l4»0 

I  I  .  I  M  I  r  I  I  I  •  II  I  I  I  I  I  I  I  •  I  M  I  t  M  II  •  I  t  M  II  M  I  M  I  M  I  I  I  I 

^»«sss«ss»!!!;?sas5ij^s:2isssss5{ssss»ifs»»»;ssss«s8sfjesss!jsr 

r  oo-mwnfi^ow*«»*.®«9»  •««« Nn«  4*»ii«KNo3»ooMHfiinn««^«4N^«» 
Nn^innnnnnnnnnnn^nn^f 

C04»000000000000000000c4»9000c0^0009<r00000000000000« 


mcnr)^rvr>«iiMia>^  tr  an  ev  «*«*«*  v>wi  *vr»  mv>m  e>m  vsvi  vrsirvi  w  wtnfvgi  r>vi  vi  *i 


149 


TEST  1c:  COORDINATE  LAYOUT  (continued) 
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TEST  te:  COORDINATE  LAYOUT  (continued) 
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TEST  1c:  COORDINATE  LAYOUT  (continued) 
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t=^tSUSSCS2S222SJSS?2S5S&f?5t?2«l5^2rm 


nmssusutsissnnsmussunmsm;;;; 

uniPsiinsssHsiiHinissismisaH! 


-*#«*•**•**«•*•«**<••**••■•••*"•**<#►#  a?#  —  *#*  99  4  *»***«*0«4# 

9««4^^9fl999»M9nM#l!H9  9A^9^4tf  9  9  9  9  «  9  9  «  099  9f  9  99 


♦  *  «  4 
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TEST  Ic:  FINAL  TIME  EDIT  (continued} 


K*i«c  <vmr,  um  i*  «jc*«wc*,  »  t»  «****.  ortm  t*  ***o<«e**  otmw  in  *fc% 


S'  ««CC«i«<fC«M«WCCOMCe«l4!C#CO<  «  «  4  tt  C  «  C  4  «  c 

*-  tOOOOOOCOOOOOOOOC 

J  •«•  I.  •»•«  t  <•  t  •«•••*••••  t  »••••  t  ••••  t  ••  t  •«•«•  t  »•»••«  • 

ar 

§o!I^£5S5S525o222«5tJ5?2?C?55Si3SS2£^S2S£5,,5SS53£3!5£* 

►*  «  *  *1  «  *<A  *  0*  *  —  *t  «  »  i*  ^  m  »  k-  *  —  ~t  kai  t*  */  *.  m  m  m  r-  m  +  r>  +  4  +  *4*044  4  44  c  4  «  4 

-,-^-fvNnn  *  *  «  « 

«r  ^t.*****-*.*.^*.*.*.^*.*******?#  c  «  *  e  e^-***!*#**'***^*. 

►-  4444444444 

-j 

*««fic««rcii«ica(KfCfiifrcBCtccciiccaf<tffcccmf(i 

•>0*0«0«««aO»«#A«««()OOOOCOOOOOC)OOOOOtOCDOOCOOCOCOOODC 
M  ••••004)0«000000000000000000000000000000000«0000000 

m  ••••••••••••o««»o»ooooooooooo  oooooooooooouidooooooa 

4*  OOOO0OOOOOOCOOOOOOOOOO  OOpOCOOOOOOOOOOOOUOCOOOOOCOC 

«•«•••»  fc*0r*a»«aa«eo«aff*»fl»vffBa*»s)C£w*z« 

»  •Ott000««OOOOO0O0OOOOOOOOOOCOOOOOOOOUOO0O  O  «<  fi  C  O  C  COCO 

*■  «•«■« ‘C-c •«*»-«•«•«.  «*  t«4r.r- -c-c-c-c-c  r-c  •<  oo-cc  c*c  c  c*C'4C  c*c  c-c.c-c-c*r  c«  c-c  cc  c  «  *.<c 
^ofiooceocoootQoccoooococeococceecocoooeooccceccccocc 

^••••0«O*«t0OO0dOO0OacOOOOOOOOOOOOOOOOOOOOOOOOCOOOCO 

-  vffcccffc^ffccvtfccccc’vscsfltctfc^  Citff(9«r  !f  cci  »«cf  «ri  c  1  r  c 

^••••••••OOAOOOOOOOOOOOQO^OOOOOOOO^OOOOOOOOSAOOOOOO 

>  ooeooooooooooaopooooooooooooiiooaooooc 

e  COO0C0O  •  00  OOC«OO0C)OC0OOec«OOOOOOOCC«OCC>CCp<OOt?OCOC 


W0«00ft«O00O«O«»0OOCOOOOO0O0OO»COOOOOOOOO00OorOoCOOO 


>0000000000060900000000 


;:tmms:stt:::::ssss8:sss::::ss:::t$:::scsss:sss 

•  •••••••0oo»ooo«ooo»ooooo0oo»o«ooooodooooeoooo0oooo 

•••••••••••••ooooooooooooooooooooooooooooooooooooo 

WOOOOOOOOOOOOOO^OOOOOOOOOOOOOOOOOOOOOIIOOOOOOOOCIOOOO 


<  •♦ooo550*ooooooo«®o***Oo»OoOooioo0  €•*«>«-».*  4  **  o'*  <*  +  <r  o*  r-  <  »  ^ 
4*  •••*0*O«#0«OO«O00»»OOOO|>«eOO«OOOOeOO6O«O-4^  1-  K  0  4  4  «.  4 
•  0OO9OOO44  ««f  ft«f  Ottott  ••«  c»4«c«<>ec  4>4»C‘«4»e*C‘*tfi4**‘>  «  «  *  A 


•  •oo*oooeoo*0ooooo«o6o()oo9oaeooo 


•* 

f  »•##*♦•#*«•••£'#♦«►••  •OH*  •»•**•••**•  •*••••  «»£*•»  OKO  0^0# 

X  094ft«40  4C)44O8  4eC6O*e«<>OO«4«O4te«9a  *  *  f  -  »Cn  ^ 

** 

• *#•*#♦###•###*£**••*• * * *••*» ••••«• •  *«.*•#  «0 -V  40 *••**•* 
S  O'  «•  >0  «•  •  41  0060 

f*  *#••*.  •••**••*.  ♦»•  »*»**•♦  *  *  » 

Jj  •  •  •  •  «M0  O##OOO0O  •  oo  *♦*  »O0O 

iHiit!5HH2liHI5iS*:!=i!i2SU:«EjfSSs5£5*JHia 

01  *  **♦•••♦'•**•••••»  *  *  *  ••* 

M  —  4w«|  I400444.4  44444«4444444444i444444444«44444 


W  0i*0#**i*OO»*O««Oo«*O0«0OOC  *~4»  «»  (I0M 


■  ~«O4%«»#0-«»  -***«»  #-*0  #  f  O  r-400*  «  J0  0»  ►  •  ♦  « 

MM<4MWMM«*«i^04f000ir0«i0o000  0n000  0it4««4  #  *  4  *  J  ♦  * 
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TEST  1c:  FIRST  PAGE  OF  STRESS  HISTORIES 


«c«(MC  og»*gr.  r iMf  in  «te»os«:c*.  $  in  oynn  in  n*nom:cs*  MlTim  in  s»es 


0  o2 

FIGURE  46 


0.4 


0.6  0.8  1.0  1.2  1.4 

POSITION  -  '•m 


1.6  1.8 


k'-6n*-59 


TEST  1c:  SUMMARY  PLOT  OF  ALL  TIME  EDITS 


i  ' 
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FIGURE  47  TEST  1c:  SUMMARY  OF  STRESS  HISTORIES 
AT  FOUR  JEDIT  LOCATIONS 


d.  Test  No.  2 

A  simple  impact  between  a  solid  aluminum  flyer  and  an  aluminum 
target  is  given  as  Test  2.  Neither  stress  relaxation  nor  Bauschinger 
effect  is  included,  so  the  problem  could  be  run  with  any  one-dimensional 
wave  propagation  code  containing  an  elasto-plastic  equation  of  state. 

The  listing  in  the  next  pages  includes  the  input  data,  a  page  of  the 
initial  layout,  and  samples  of  the  final  EDIT  and  stress  histories.  The 
EDITs  ,  stress  histories,  and  a  deviator ic  stress-volume  path  are  shown 
in  the  figures. 
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••••  SRI  f  _'F  S  (6400  VERSION)  •••• 


0*TE  »94/22/49 


I0ENT  •  2  MODEL  Of  AL/AL  IMPACTt  NO  RELAXATION  OR  OAUSCKlNOER 

FLyER  «HO  TARGET  ARE  BOTH  OF  2024-TB  ALUMINUM 


1  NTEUT*  5 

NjEDITa 

6 

NREZONa 

0 

NSEPRATa  0 

2  TEnITS*  5,090S-07 

1.008E-06 

1.500E-06 

2.000E-06 

2.SOOE-OA 

3  JEOITS*  38  T5 

112  187 

224  261 

8  NEoTN®  100090 

NCOITa 

10000 

NPERN  a 

1 

“0 

7  STOPS 

JCTCS  a 

12S0 

CKS  a 

4«0OOE*80 

T$  a 

2.B00E-06 

3  NMTRLS*  2 

MATFL  a 

1 

:  UZERO  a 

SaOOOEf 04 

1PLOT  a 

1 

AL  FLVEM 

«NO  ■ 

2<7SSE*00j 

;  NSRM  a  0 

NY  AM  1 

NPOR 

9  NCON  a  0 

E8STC  •  TiSSOE* 11 

EOSTO  a 

1  § 290Ef 12*  EQSTE  a 

1 <220E*1 1 

EOSTO  a 

2.940E«00 

EQSTH  »  2.59OE-01 

EQSTS  a 

1.197Cfl2i 

1.089E*00 

T.S25C-I2 

COSO  ■  4.000£»00 

Cl  a 

1.500E-01 

|  C2  a 

0. 

TENS ( l )  “  -S.OOOEfll 

TENS  12) a  ■ 

■l.OOOEfJl 

[  TENS(3)a 

•1.000E*11 

YO  ■  2.500£f09 

MU  a 

2.870E*U 

'  YAOD  a 

0. 

NZONESo  If  148 

CELLS  IN 

2.900£«00 

i  CM 

•0. 

■Of 

AL  TAROCI 

RHO  ■ 

2<78SE*00 

|  NSRM  a  0 

NT  AM  .  1 

NPOR 

0  NCON  a  o 

EOSTC  ■  7.550E*n 

EaSTD  a 

1 «290Ef 12: E6STE  a 

1.220E*U 

EOSTO  a 

2.940r«00 

CO»)M  ■  2.500E-VI 

EQSTS  a 

1.197Efr2i‘ 

1.089E«n 

T.929E-12 

COSO  ■  4.000E09 

Cl  a 

1.5C0E-01 

C2  a 

0. 

TCNSlDa  •1.000EM1 

TENS  12) •  • 

•l.OOOEfll 

:  TENS(3)a  , 

•l.oeoCfii 

VO  ■  2.SQ0E»09 

MU  a 

2.870C«11!taDO  a 

0. 

MZONES-  if  148 

CELLS  IN 

2f000t*00  CM 

»0t 

-8% 

TEST  2:  INPUT  DATA 
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OATC  ■  «4/2?/*9  1UCMT  ■  2  MODEL  «•  AL/AL  IMPACT*  NO  RELAXATION  Off  BAUSCH1NSER 


22!!2i22S2!;SSaSSSS5SSSS3S***KSS5;33J?n5SS 


I 


MlZZXliZZISZl 

WMMMMMIflMMntjlMl 


SSZZfZZIZSSiXSXIXZl 

IDQleiMIMlfWIfUIMIIIlUlWWIIMMI 


(ZZSSZ1ZSZZZZ] 

IMNfMIMMnMMMMMI 


K  KttSSSCSStSSlttllKKXZSCSVtCSKCCCCCZKSSIIlIKKkZICCiSCt 

W  b.UWWUWkJW»yVWUiyywWlgWWWIillKWWWUWWyWMMWWkihlWWMfc(WWyWWItfWWIi 

S'  U.b.li.tli.k.tklkkk.kkfc.k.tL^ktA.^k.lk^h.B.Uli.h.k.k.h.klh.h.b.h.t'ikh.M.h.klkh.lblklk 

««««««««««*«?**««***«««*«***«««*«?««  ;*««**««i«rf***3f«* 

NMNAtMNftfNNNIMMNiyiVMNINMMVWNNNAiMCVniM^MAINNWAI^MNNMMAlMNNMMM 

OOOOOUO()tiOCI»OO0«O««O0««««eO«««O«OO«O*«0««i«t«««««f 

*ni  •  i  i  m  in  m  a  (  i  t  m  i  mi  i  •  i  i  m  i  i  ii  i  i  i  i  i  i  •  i  m  i  i  m  mi 

->  z  uuuuwwwwMtitMwwwwywuyuywwwwwuiwwwuwwywwwwwiiiwuywwiuMwyu 

5^S2JSJJ$2S2S52SSS2SISSliiS2JJJSlSJSlJlJJijIsilJSilJ 

. . . 

«*Mn  ^  j*i  i*» «« i** a *  »n ««««**««« *9 mi* #* * « 

?#♦?♦♦♦*  •  ♦♦♦♦♦♦??  ♦♦'7??T7  ♦♦•T7T7T77T  ♦♦?♦  7  ♦♦♦7J777*?  ♦ 

—  uuwywuiwuiMWMwwwwMWWUwuwywwwwuwuMywMwywuwwwwwuwuywMwy 

*»  \ooo9ot9aao«0«o«aoii»o««»«9co««  »•••••••••••••••••••• 

I  7  •  •  •  *  7  »  •  »  7  I  n  II  I  Ml  7  t  II  II  III  I  7  I  7  »  991  9  9999  9  9  9  9  9  1  9  9 

OO9»O0OOtt»O»O«O<»»AOO«««»««««»«COa»«OO««««»*»««H|4»«« 

^iiiliiiiiiiillllllliillllliiiliiiiiiliiliilliiiiiii 

e  ••••••  i  ■••»•••«»•  a  ••»  t  »•••••«••••••••••••••••••••  • 

AJMMNNNIVNIVIVAlNMIViHNNNMNtyMNNMNIVMAINNNNNMMNMNNMMMMAINMN^M 

eOOO99eO9i99O99  999OCia99  999t999«9999999«909O9«9««99 
O  ♦  ♦  ♦  ♦  ♦  ♦  9  »♦♦♦♦♦ 

«  KIUUWWWrWWWIiiJWIWWWWWWUW9tMWUl9WWWWWWWWWWW«tJU(IUWWIIWWIWWWWWWW 
'Ml»999949999999999««9  999«««999«««99999f94«f947999ff«9 

«\9999999»»9»»»999999»»999»999»9999999999999999»»99» 

*  »••»»««••••••••»••••••••*•»•••••••••• 

«4«940«9««9^««4««<^«d«99«49«4)9««99««94««99«««9«99« 

»9  9999»»»9  99»»»9«>»9»»9999»»999»9  9>9>9»»999999»9t9» 
(V00094999  99900  099e099  9«9  9e99<l9409999999994944949499 

-^UUtytjUitaftWWMtttWWliiWWWWMltlWWyWIilUilfflWIeiUWyybiWMywWWUlktiMlWWMUWIIlWWttl 

«~>kfi»0M»'h.r'»P*p»>*»>P»f*Ka*»^->»P»9*t*»K|fe*»P'*9>»phP»P>*r»Kr»KP»pNr»*>»»9k»r»P'»r>>9>»|>»r»9"»9tepkp*K9»4*a9N 

>-  3  »  •  •  •  •  •*••■•»•<>•••»•••■»•••••••••••••  *••«••»*•••••« 

«494  4  4444944,44«44494944444f4«#9449994444«494444f«9 

3  33a»^00*!»*33  99999  t93»939993999J999343)  3999999»«»99 

«  Wtt(WlllWlkh|IWWWUWWUWMykiWWI9WWWWWWWMWWWWV|IU>4WUWWl4WMMlMWWWt4yy 
‘)0l09OO444494  4t>9999O«IO9O9»4  94  4O4O9A4949  99  9  44  44  49«*4  4i 
•  X  Oo4a«9900Q9e49999C«9999994999909994490499409999499 

2  Z  0tt00a0tt00»0»*909i9909«ci9>0000e«09»««««9a**l»#»«««9«0* 

o  •••••  I  ••»«•«•  •  •«••••••  t  ^  «  t  »  «  (  t  ••••••  I  •«•••••«  I  •«•  t 

(UN(VniNAHVNl>,)MMAlAIN<V>VM^IVMMnini]VMMM^MNNIMM(W(g(MMAini(VAt9ini4l9l9|4|^NM^ 

OO«OOOa>OaOOOOaOaOOOOa«0OO«i<*O«O9O»OOOO])««939O9«9»O 

I94(|lll999l949ll»9lll9lf|ll9«l4l949ll44lltl«9»94 

—  uiyUUtUWUWWUIUIi;UiyMUJMi4|IWUyUWWUJk(WBlW9lWkiyit>WWliWWWUMUWUWWW 

n  nM»4N--4  0N<«9jN««-«N9/Mi9^N(*>inif‘»ai-n4iflMio-(y4iW#»#i(Mf»44‘ 

OaO«OOOO9O0Oe>OO9OCOOS9OOO^OOQc  330009009909900C  0  9  9  0 
t  •  •  1  I  I  •  I  •  •  I  I  f  I  I  »  •  I  9  I  I  I  I  f  I  •  t  •  I  I  I  t  I  I  C  I  •  •  I  I  »  t  •  >  9  '  I  I  I  « 
wwwymwwtaiMwiiiwiiiywwtiiuiwyiiitfwwwytfywtfwiuiMiyyMMWMWiiiWdiMWJwwMW 

s  *  s  «  i  s  s  s  x  x  x  s  s  x  x  x  a  si  x  x  x  s  x  x  x  x x x  x  « x x  x  x  x  x  x  x  x  x  x  2  s  s  2  2  2  22?* 2 

->  •**«*»  *  in  «  P-  r9«>«N<*19^4N«99Mrvn4^«K«f«-<N<n49)#^*9tf^Nn*9t«N«9« 
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TEST  2:  PORTION  OF  COORDINATE  LAYOUT 
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©©©©©©©©©©©©©©©©©©©©©»©©©©©©©©©©©©©©©©©©©©© 
OOO  D0030300000030300000c0000  300000~00'500003 
AiOftftft  +  ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
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X44444444444444444444444444444444444  44444444 
•  X44444$44444444444444«44444444444444%J4444444 
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TEST  2:  FINAL  MOMENTUM  EDIT  AND  PORTION  OF  TIME  EDIT 
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TEST  2:  FINAL  TIME  EDIT  (continued) 
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TEST  2:  FIRST  PAGE  OF  STRESS  HISTORIES 
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TEST  2:  STRESS  HISTORIES  (< 
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FIGURE  48  Tt*T  2:  SUMMARY  OF  STRESS  HISTORIES 
AT  THREE  JFDIT  LOCATIONS 
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The  stress  relaxation  mechanism  of  Model  I  Simple  anelastlc  model) 
is  tested  in  Test  3.  The  configuration  is  a  symmetric  impact  between 
two  plates  of  2024-T8  aluminum.  The  plates  have  different  relaxation 
parameters  but  are  otherwise  identical.  The  listing  included  on  the 
following  pages  contains  the  input  data,  and  portions  oi  the  initial 
lavout,  and  final  EDIT  and  stress  histories.  The  EDl’Ts  ,  stress  histories, 
and  a  deviatonc  stress- volume  path  are  shown  in  the  figures. 
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TEST  3:  PORTION  OF  COORDINATE  LAYOUT 
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TEST  3:  FINAL  MOMENTUM  EDIT  AND  PORTION  OF  TIME  EDIT 
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TES  '  3:  FINAL  TIME  EDIT  (continued! 
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TEST  3:  FIRST  PAGE  OF  STRESS  HISTORIES 
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FIGURE  51  TEST  3:  SUMMARY  PLOT  OF  TIME  EDITS 
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FIGUR.  52  TEST  3:  SUMMARY  OF  STRESS  HISTORIES 
AT  SIX  JEDIT  LOCATIONS 
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TEST  3:  SAMPLE  PLOT  OF  STRESS  DEVIATOR 
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f .  Test  No.  4 

The  stress  relaxation  mechanism  of  Model  2  (Band's  model)  is  tested 
in  Test  4.  The  configuration  is  a  symmetric  impact  between  two  plates 
of  2G24-T8  aluminum.  The  plates  have  different  relaxation  parameters 
but  are  otherwise  identical.  The  listing  included  on  the  following  pages 
contains  the  input  data,  and  portions  of  the  initial  layout, and  final 
EDIT  and  stress  histories.  The  EDITS  ,  stress  histories,  and  a  deviatoric 
stress-volume  path  are  shown  in  the  figures. 
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TEST  4:  FSRST  PAGE  OF  STRESS  HISTORIES 


SC»t»C  OUTPUT,  .TINC  IN  NIC»OSCCS.  S  JN  K8ARS.  OTKM  IN  NANOSECS.  LElTIN  in  secs 
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TEST  4:  STRESS  HISTORIES  (cont  x*d) 


FIGURE  M  TEST  4:  SUMMARY  PLOT  OF  TIME  EDITS 
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FIGURE  56  TEST  4;  SUMMARY  OF  STRESS  HISTORIES  AT  SIX 
JEDIT  LOCATIONS 
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g.  Test  No.  5 

The  stress  relaxation  mechanism  of  Model  3  (Gilman's  model)  is 
tested  in  Test  5.  The  configuration  is  a  symmetric  impact  between  two 
plates  of  2024-T8  aluminum.  The  plates  have  different  relaxation  parameters 
but  are  otherwise  identical.  The  listing  included  on  the  following  pages 
contains  the  input  data,  and  portions  of  the  initial  layout,  and  final 
EDIT  and  stress  histories,,  The  EDITS  ,  stress  histories,  and  a  deviatoric 
stress-volume  path  are  shown  in  the  figures. 
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•  •••  SHI  PUFF  1  (6*00  VEsSl'iN!  •  ••• 


Qt TE  *05/13/64 

IDEM  *  5  MODEL  3t  GILMAN  P£LA*ATi''N  MCDEl.t  1  HON/ 1  WON  MODEL 

The  DISLOCATION  MULT IPL  ICAT10N  PA'  -HETEH,  phi,  is  OIFFEPENT  in  the  FLYEP 
AND  IN  The  target.  all  OTHEP  ,  -MAKEUPS  ape  identical. 

1  NTEi)T«  5  NJEllITa  6  NHEZON*  0  NSEPKAT*  0 

2  TEOITS*  1.33300'  2.667E-0?  *.000t-07  S.333E-0?  6.667E-07 

3  JEDITS*  53  85  117  188  81*  ?*6 

6  NEQTNa  100000  N£Ol I*  10000  NPERN  *  1  -0 

7  STOPS  JCTCS  *  1000  CAS  ■  *,O00E*00  TS  »  8.000E-07 

•  NMTPIS*  8  MATFL  *  1  UZEPO  *  2,500E*0*  -0 

IRON  FLTtW  PHDS  ■  7.850t«00  NSPH  *  1  NY  AM  *  1  NPOP  *  0  NCOS  *  0 

EOSTC  «  1 , ?*1E  » 1 2  EuSTO  «  0.  EOSTE  »  «,*OOE*10  EUSTG  *  l,60QE*00 

EOSTH  ■  2.500E-01  LUSTS  *  0.  I.N50E*00  7.21AE-12 

( osa  *  *.ooue»oo  ci  *  l.soot-oi  c?  *  o. 

TENS (II*  -l.OOOEMl  TENS (2) *  -1.000E*ll  TENS ( 3 ) *  -l,OOOE*il 

CEE  »  2.000E*03  PHI  *  1.0C0t»03  BEE  a  1,9*0E*10  VK  *  3.220E*05 

0NMO*  5.000E*®0  -0.  .0.  -0, 

TO  *  5.00tE*OV  HU  *  6«i*QL*ll  Y ADD  *  0. 

N20NES*  It  1*8  CELLS  IN  fe.OOOE-Ol  CH  «0.  -0. 

IRON  TAPPET  PHDS  »  7,8501*00  NSRN  a  3  NYAM  a  1  NPOP  •  0  NCON  *  0 

EOSTC  “  1.?*1E*12  EuuTl)  *  0.  EQSTE  *  R,*00F»10  EUSTG  *  l.b00E*00 

EOSIH.*  2.500E-01  EUSTS  *  0.  l.hSCF.OC  7.21*E”12 

COSO  «  *.UO«E*00  Cl  a  1.50<lt*0l  C?  *  0, 

TENS ( 1 ) «  -i.G0OE*ll  TENS (21  ■  -1.000t*ll  IENS!3>«  -l.'SOOEMl 

CEE  a  2.000t *03  PHI  *  0.  BEE  a  ltPH0E*10  VM  a  3.220E*05 

UNNOa  5.000E  *00  -0.  -0,  -0. 

TO  •  5.000E*04  HU  a  8.1*0t*ll  YAOI)  a  0. 

NZONES*  U  1*8  CELLS  IN  6.0Q0E-01  CM  -0,  "0. 


TEST  5:  INPUT  DATA 
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TEST  5:  STRESS  MISTOHifcS  (continued? 


STRESS -  febor 


STRESS  — —  kbor 


TIME  - /iHC 

M-ITH-H 

FIGURE  68  TEST  6:  SUMMARY  OF  STRESS  HISTORIES  AT  SIX 
JEDIT  LOCATIONS 
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h,  Test  No,  6 

The  stress  relaxation  mechanism  of  Model  4  (two  parameters,  variable 
yield  model)  is  tested  in  Test  6.  The  configuration  is  a  symmetric  impact 
between  two  plates  of  2024-T8  aluminum.  The  plates  have  different  relax¬ 
ation  parameters  but  are  otherwise  identical.  The  listing  included  on  the 
following  pages  contains  the  input  data,  anu  portions  of  the  initial  lay¬ 
out,  and  final  EDIT  and  stress  histories.  The  EDITs  ,  stress  histories, 
and  a  deviatoric  stress-volume  path  are  shown  in  the  figures. 
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»•*»  SRI  PUFF  1  (440 0  VERSION)  •••• 


04 Tt  n#4,20/44 

I0C4T  •  4  N09EL  ti  TaO-PARAnETEA.  VAAJAOlE  T1EL0  RELAAATION  MOOCL 

IMPACT  Of  Tie  202*. TO  ALUM  {MUM  PLATESi  EACH  OCSCMIKC  or  THE  TaO-PARANETCR 
VIELC'hOOEL.  THE  Too  PLATES  HAKE  DlffERENT  VALUES  Of  THE  "ICLO  RELAAATION 
TIME*  tr#  MIT  ALL  OTHER  PARAMETERS  ARE  THE  SAME. 
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AL  fLTER  AMOS  •  2«TOS£*OS ,NSRM  a  4  MV AN  a  1  MPOR  a  0  NCOM  •  0 
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TEST  ft:  PORTION  OF  COORDINATE  LAYOUT 
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TEST  6.  STRESS  HISTORIES  {contimtedl 


FIGURE  61  TEST  6:  SUMMARY  OF  STRESS  HISTORIES  AT  SIX 
JEOIT  LOCATIONS 


209 


FIGURE  92  TEST  6:  SAMPLE  PLOT  OF  STRESS  DEVIATOR 


210 
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Listing  of  SRI  PUFF  2 

In  subsequent  pages  the  SRI  PUFF  2  program  elements  for  wave  propa¬ 


gation  calculations  are  listed.  The  program  requires  51,500  words 
storage  for  loading  onto  a  CDC  6400  and  46,500  words  for  execution.  The 
program  and  the  listings  are  divided  naturally  into  two  segments,  the 
first  for  computations  and  the  second  for  plotting.  If  the  plotting 
cannot  be  implemented  on  the  user's  computer,  then  the  plotting  subroutines 
should  be  omitted  and  the  call  to  PUFPL0T  should  be  removed  from  EDIT. 
(There  is  no  other  link  to  the  plotting  routines.)  The  program  elements 
are  included  in  the  following  order: 

Main  program:  SRI  T'.'FF  2 

Computational  Subprograms:  EDIT 

EQST 

FMELT 

GENRAT 

HAFSTEP 

HYDRO 

J STRESS 

POREQST 

REZONE 

SSCAL 

RELAX 

BANDRLX 

BAUSCHI 

Plotting  Subroutines:  PUFPL0T 

HISTORY 
HUGOHIO 
TP  LOTS 
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c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 


c 

c 


c 

c 

c 


c 

c 

100 


c 

c 

IW 


MNUI  MI  Ft #F  (INFUT.CUTAUT.TAFHC-lkAM.TAAttt'CUTAUT.TAAEA, 

i  Tm7»TMtt.?aMitimu.imi«.mm*ieoooi 

:>»  ARCCRAA  •  •  * 

•  CALLS  CENBAt  to  MAO  0A1A  AkO  IMTHUif  ARRAYS 

•  CALLS  MVORC  FOR  EACH  CYCLE  OF  CALCLLATlCkS 

•  SITS  TINS  S1SF 

«  CALLS  EDIT.  CCTRC*.  AEECM  AS  RiCLlRfC 

•  CALLS  SCAftt  TO  MORE  RE  St  ITS  AkO  FC*  TENAINAI  PRIkTCUT 

•EAL  RATE, FU.NUR, AUF.NiF.NET 
INttCCA  H.  ACRCLS. AIMER, SCLIC, SAUL 
MISCELLANEOUS 

COMMON  CEF.CRS.OAVC.OElllF.OCLO.CRHC.CTAIk.OTN.CTNH.DU.OX.iOLC.F, 

1  FlRST.J.JCVCS.Jtkil.'IFIN.JSNAS,  JSTAA,  J I  S.ISU  I  It  I  .FAkRR  111  I ,  k, 

2  NCYCS.NFENN.FOLO.RLASI.SLAST . 'AAX.1F  ,T  IRE,  TJ.TS, (HAST .UCLC. 

1  AlASl.ANOk.XClC 

EOLATION  OF  STATE  -  SCUD 

COMFCN  COSQ <A.A) »C t (A .A  I >C  2( A) . EFll T ( t  <  S ) > (C  S  TA 1 1 ) • SO STC I  * ) • 

1  tCSTOMI.ECSTf  lil.fQSTCM>.ECSTH*t.ECSTMAI.ECSTSUI,FAUI2,A). 

2  NUIAI,RM04*).NHCSI4I.TCAS(A.3).YACC<A>.T0(AI.J*NCIAI.NFORIA.2l. 

1  R.FUF. AMTRLS 

ECLATICh  CF  STATE  -  FCFCUS 

CQRRCk  AftlAI.NUFIil,Fa*AIA.ll.RG*0<4.*),RCkCI4,3),RHCR<6,ll, 

1  TACCFIA.il  .OR  IF  .RHCRV.AR.NC 
RAC  I  AT  ICN  CIFOSITRW 

COMMON  SSI 100.SI.S3 TCFIS I .STAR1ISI .SOUR* «SSTC  RA.  kSFIC. SSJ. JSS 
CCCRCINAtf  ARRAYS 

COMMON  RllOOI.Ct3CCI.CHLIlCC).OIlCC>,OHlt3a0>.EHlllOO).H(JCC,}l, 

1  NCR  1100 1  .LET  1100 1  •!  1001 .  AHL I  JCCI ,  » I  KOI.  SI  1001 .  SAL  1 1001 . 1I1C0 »  , 

2  U 1 100 1 .UHL  I ICO  I , VHi (ICC  I . IHL I ICC  I 

HALFSTEA  values 

CONFCN  OM.  OMLAST.CUA.  EA.AA.RA.RALAST  .  SH,  Ski  A  SI  .UH  .UMAST  *XH  .AHLAST 
101  MIA  IE »S 

COFRCN  OISCFT 1 10 1  >  ICENT  ■  JED  IT (  J(  I ,  JRE  ICN  1 1!  >  .NOATE  1 1 1  ,k£01 1 .  MOT  At 
1  NJIOI  |  .NR  .NRE20N  .MSEFRAT  .kSAALL  .MfOT.lTO.MNI  IS  I ,  TEDI  T I  SO) 
CCkCiTICk  INC  ICATORS 

COMMON  INF.L  INTER. RIMOR.MRAAL.FCRCLS,  I  INTER,  SCI  10,  SAALL 
SFAll  ANC  AELAIAt ION 

COT  ROM  NSRIt I .TSRIA.AI,USAISO),ASAISCI.lALX,klC*,NI AH, kf T  H 

CCFFCk  /FLCT/  IALCT,  IFFIOTUI.L  INI  5 . 1  TAtCT  ,»T  AlCT  .1  FLACT  . !  h  |  ST  I  A I , 
I  IFLAT 

COMMON  AUTOCI 

CALL  SICONCIF |«ST I  A  Ilk-AIRM 

CALL  ClkRAT 

RRCCRkAfCX 

OMKYCS-MFtRN  I  IT.NIROIO.MIOT-  U  t  NT-0  *  5F-0.» 

MIMUUNM 

CALCLLAlf  AM)  STOAf  HVERCtVMRIC  CM3 
CALL  AVENG 


12/M 


12/IT 
C 

C  STORE  DATA  Ik  MH* 

CALL  SCRIM 
C 

C  110#  FARAFttIRS 

SON  IF  ITIFE  .LI.  TSI  JCA.sOC 
NA  IF  (R  .EC.  jCVCSI  ACC. MS 
MS  IF  III JSFAI)  ,LT,  ClSI  124. ACC 
KM  CALL  SttTCMI.ISNTCM 
«C  TC  IAOO.SOOI  ISNICa 

< 


RIML'IIN  •  CALL  SELJMQI Nlkl  >  OIL  1 1 A-Mk-HNl 
C  FtRIOtIC  EMITS,  FRIkTS 

IF  IFCCIN.  1SI  .1C.  Cl  JCl.iK 
201  CALTUNAM-AtRST 

MFI  If  IH.OSlk.JSTAR.T  ME. CAL  I  IN. JTS,0TNH .1*4  A. JSNAN 
210  IFINOSIR.MOINI.tO.CI  CALL  EOIFCA 
IF  I ACOIk ,NCOI Tl.IC.tl  CALL  ECU 
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21? 


♦CO  MUTE  414.41 1 

MITE  114,401  N.X  TCS.  TINE  ,  I S,  1 1 JSFA* I  ,C*  S  •  ISktCH.CTNH 
CAU  SOTNQN  *  CIU  EDIT  «  ISUEOI-l  I  C»U  SCNI8I 
C  FNOCNAN  t-ALIS  CM  CCMFLE1ICN  CF  Ell  CM*  CECKS 

SC  TO  100 
C 

C  tINt  STEF  CAICUATICN 

♦00  3TNM- ANIN1  (  SF*CTN  IN,  AMAA  1  ( l.2*C1NN.  .CIS*  SF»0  TUN  » » 

IF  ISCUMM.ES.  I. Cl  SSO.SOt 
C 

C  CONFUTATION  OF  SOUMF 

SON  SO  INN- 1.0 

IFItIME. IT.  SSTOFNIS1S.3K 
SIS  DC  *25  NS-1 .ASFEC 

IF  IITINE  .IT.  SSIOFINSII  .ANC.  ItINE  .01.  STAATIKSIII  S20.S2S 
S20  SGUMN-AFIN1 (SOONF.SSTCFf NS  l-STAFTIASI) 

S2S  CONTINUE 

CTNF>  AM  IN  1 1  CTNF  ,C  .C  !•  SOUMM I 
5  JO  CN-NCVCS-NPEMN 

C 

C  II ME  EDIT 

IF  (1TI  S40.SS0.tiS 
SIS  CALL  ECU  INT-NTM 

IF  (NT  .EG.  NTAI NAIICNI *  511,521 
SIT  CALL  ME20NE  A  ME  I  ON- M2  2CN  •  ! 

511  CONTINUE 

IF  (NT  .EQ.  NTEOTI  S4C.S4S 
540  11—1  I  SC  TC  S4C 

S4S  IT-0 

SSO  IF  IIIMCKNAOTNM  .11.  TECH  (NT*  1 1 1  540.515 
SSS  MCVCS-(TEOIT!NT«ll-TINE>/CtNH«l  t  CN-NCtCS 
CINE* I TEOIT (NT* I 1-T I  PI l/CN  I  II- I 
5*0  A- Ml  I  NF-NHt 

IF  ( 01NE  .61.  01  200,545 

54$  N.N-l  I  SC  1C  400  1 2/ IT 

C 

40  Ftt-MAT  1/  SE  N  •.I4.SH,  JCKi  •,(♦.  4«  .  IIFf  -.110,1. 4H,  TS 

1  E1C.1.12N.  (IJSPAX)  -.Eto.l.  7N,  CMS  • , 1 1C . !. ION,  ISNTCE  *11. 

2  AN.  C 1NH  -EIO.il 

41  FCMMAT  l/4(,2*H**««  CFITEVICN  fC»  STCF  ••••! 

44  FCMMAT  ISM  MIS.ME,  JSTAA-I  4,  IN,  1  INI -I  IC.  1 . 12*  ,  CAIC  TIFf-FlO.l 

I.1IM  SICS,  jTS* , M • TM  OINM-.t IC.l.IE  SFAI*.I|0.1.IM  JSHAA-.I4/I 
INO 
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SUOOOOTIMf  EC  IT 
C 

c  iiuuMit  entiies  iothon,  iooumf,  mo  scaioci 

C  Mi CO  FflNTOLT  IS  MAMOLEO  BY  This  (CUT IM 

C  *  CO  IT  LISTS  COMOUUTf  QUANTITIES  FCA  TIM  OF  IEOIT 

C  •  (DIMM  COMUTIS  A  NO  LISTS  FCFEATUF  CUANTITIES 

c  •  eooumf  sivcs  t  m m  comm  edit  foo  dincsik  fmfcses 

C  •  Klllt  STONES  SELECTED  HE  HITS  OUOtkC  CCFFUTATICN  MIC  MMS 

C  *  riML  LIST  {DC  Of  SWISS  KISTOtK! 

c 

MU  NATl.NUiMJF.WF.kf  F.  kiT 
HITECH  H.FOOOUS. NINTH,  SOLID. SFALI 
C  MISCELLANEOUS 

COMMON  CEF,  CAS.  CAVC.  CELT  01,0010  ,  MW  .OTF  Ik  ,0T»  .CUN.  .OU  ,  OX,  ECLO.F, 
t  FIAST.J.XVCS,  jlkiT.jFlk,  jSMI,JSTi*,JIS,LSL*l  11.  ,Nimi  ID.I, 

2  KTCSiRHM.NUlIUST.iUS!illUI,1F,1IK.Ij.U|«UST)«Ol»t 
J  ALASf.mOfc.SOLO 

C  E SUIT  ION  OF  STJTE  -  SOL  10 

COMMON  COSQI4.4I,  114.4  IiCIII)  .EFELT  <4,5I.ECSTAI4I.ECSTCI4.  . 

1  E8ST0IAI  .ECJTEIt  I  .E9STSI4I.  E0STH4I  .f  CSTklAI.EUSTIlkl  .MH12.4I » 

2  NUItMItMWSUl.IfKtUiSl.tMOIIMOUliJlkOMItMCIIIdti 
1  N.NOF  tNMTH.S 

C  (DUCT ION  OF  STATE  -  FCFCtS 

COMMON  A0IAI,NUF<4I,FC«4I4,SI  . FCOt t 4. Jl , FCOCI 4. SI .NFOF tA.tl , 

I  MKF(4.1..(MMKII«tM.« 

C  NAOIAIICk  OEFOSITICk 

COMMON  SSI SOQ. Jl. SSTOFI $1, STAMTI SI , SOUH.SSTOFF.NSFEC.SSJ.JSS 
C  COOMOIkitE  (HAYS 

COMMON  II MOI. Cl JMI.CM.tSCOt.Oimt, OMLIMOIrfMLISOOI.MOM.il, 

1  MMI  MOI, MTIMO I  ^1300 1, FMU  MO  I,  (I  JOCI.  SI  TOOI.IM.  I  MOI.  TI100I, 

2  Ml  TOO  1 ,1440.1  SCO  I  VH.  I  MOI.  IIC I  ISC  I 

C  NALFSTCF  VALUES 

COMMON  ON,ONLAST.OUN.EN,FN,M,«l<USI,3h.SHiSTrUh,UK4ST,IN,IMUIS7 
C  IP*NIIFIENS 

COMMON  9ISCFT 1101 , 10EAT, JEOIT 1 201 ,  JMTCkl  191 .BOAT fi  II  .MEOIT.NEOTN, 
I  NiEOtT  .NM.MOEEQN.NSflFNAT  .NSFALL  .NTEDT  .klEX.kTNIiS)  .TC6IT  ISO) 

C  CONOITIOk  IMICAUkS 

COMMON  INF. 1 1 MTEM.JM NOON.  NORMAL  .FOMOI «  ,A  INTCA  .  SCL 10  .SFALL 
C  small  AM  MLAIATICk 

COMMON  MAt  41 ,  TSAI4. 4 1  .USFI  SO  I ,  ASF  I  *(  I  .LSI  I  .NICE  ,k(NH,NETM 
COMMON  /naif  IFLQT  «  IFFLOT  l4IAIAESf|T  FI  CT  .NT  FLOY  .  I FL  ACT,  IhlSTIVI. 
I  tFLASJ 
COMMON  AI2SOOI 

c 

OJMkSICN  I  (V 1 1 1 1 ,  AAI 41 ,  liEOI  41,  4-JAI 4  I  ,FJE  141 
0IHENS10M  FKS04l.FJIIOOI.SOt  ICC  I.  (ISO, SC  I 
rtMUICN  ihl It, SOI 
EOMIVALMCE  liM.NI 
E ELI  VALENCE  14,01 

(Oil IV 4L MCE  liOMOl  1I.JGII.  IJOMCUI.JOII,  t  JOkO  ( J  I,  J«1 1 
C 
c 

C  .  4 TOOT  FON  I4CM  EMIT 

COLL  UCaMICNOMMI  t  OUN  CHAXA-FIkll 
JtTAAONtMl  lStAM«l,JFIN-|  I  I  LF1  J. JS l*Ae-j|klT.  1 
MITE  (10,14201  4TI(,fc,T|M«.JST*4,CL* 

M  t  A-JEMIT.JSI44C 

1  »( Jl*k*tlJf-F*UIJ> 

Ji-JUIT  4  M-l 

It  J2*MtOGt2iT4MO,jOkC<FII 

NSMIMSOINHS  I  tO  tO  12,2.3,1. 2, 21  AS  FA. 

2  CALL  MFOVE  IYKIJll.FKjn.Njl 

CALL  NOWVf  ISOUII.Fi.JH.NJI  t  (C  l(  4 
»  CALL  NEMOVE  (MAI 21 1.FI  (  J  II.NJI 

IU'1  NEMOVI  INI!  IASI  .Fit  J 1 1 ,4kJ I 
4  CENT  MM 

Ml  ®B  110,1024  IIJ. FIJI.  Ulil.llJI. FIJI. SIJI.IKIJI.OIJI.C  lit. J. 

I  (MJ,H,|.|,ll,»»lllt,NI,N4n(2,FI.Fl(  jl.FJIJI.VJS.  J21 
IF  IJ2  JO.  JStAMOt  SC  TO  24 
JS*J2*I 

im«i  t  noite  iiuuti  t  u  re  u 

20  CONTI  Mil 


SUBROUTINE  EDIT 
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»  iimomi  oi  HTbn 

ll>  Ml  .11.  62  60  TO  99 
M  M  M0*I.«i 
JOS*  JWWMI 
M  MIINt'IIJWI 

99  MITf  (Tt 

1  ISJ0ll).i«l*4l 
MntM 

iUt  MHUTutM  time  wit  m.d.w  «t  t  •19,0s.  tim  sec 

IS,  AI4  •I9,I4»|  CMC  I  Mi  IS  SIC. 3,!*  JfCJ 
I  //4l,lig,|I.UMI,U«<S>.IMit<I.Ut*i*l,UIJiTI'  tM.TMM, 

9  MI,llK^(lIIU,a,4MM,l«tNtlT.  W«  H  »  Irf  ST/ 

4  911  CIUi?I.2K«.»iMCII/UC«)IICH  S1I/CN  I ,«X,4Mi*6S*2I, 

9  tMWtO,2l^ltCII/ii£,l<,Mmi.2<l,lfM  00  1/Cfllt 

:«l  »MIIII9.M.i,H.li4iM.]/i.4rftM.I9)lllHl,l.UU,«U.>l 
1024  MOMS! 

1  llliUCi4l(lW.»««WW.IU,iMil)  SM,  Mi  SO  CM  ST  I 

c*' 

c 

fOTOT  (MW  (SflT 

c 

MITf  I  IS,  Mill  0*  J*JSTM*0$MA11,T  1M  «  IMS  III  I, SI,  MSTl  12, SI, 

1  ICSSC  (■•!  i  jt'SaSI, IC1  IS,  It  •  la  1*41  ,C2I  K I ,  (CIICIC  I,  4QSTBI6 I, 

2  ICtTlltt,f(SIIIII,MSn>(lllf(STI(M,((HTUI«Miil)M«(ll, 

5  OMQSISI* V40C(SI,TOIRI«  If Mf IT  IS,  II,  1*1  'IMS!*,  II ,  l-I.Jl, 

4  MISI,ISIMt*l.*-l,MTOtSI 

MITf  I  IS,  2093 1 
M  401  (•JIItT.IMS 
401  SB«SI-IIS*IHS(SI 
ll>2IUT  S  M-t 
412  IMSMUMO-I.MOIIII 

MIM  II0,2O0SI<S.IISI,Se(SI.CMUS|,CKIBI,miSI.MH.ISI.SM<S». 

1  0<*l.flS),OM.|C),Wli<«».2M.tCt.lNU,I»,I>l.*).*»«l.*2l 
W  I  SI  4(,  Jfis-U  CO  (0  420 

SI*S2«1 

•»«•!  S  MITf  <lt,2O0K  S  60  TC  4U 
420  CMTISU 
Of  TOSS 

2001  NMII  IIIIOMOM,  M*I4.4M.  MI.W,  JtlM,|),«t,  UMU«I1, 

1  IS.  (INfHEIO.S/l  |MO,24IO,4M,  C*IJM4.t/4S 

2  IS  MSC'lOf  1C.D1 

1009  MOM  1 1  «4M0  MI.ISMI.MMl.lSClC.U.IMH.  T1.1M  M. .  TS.IMMML. 

I  TS.MSMl.SS.  IMS.9S.IMl.fi, SKIM. f  I. MTMI*T*.1M2M<.  ,41.  IMSt/l 
2004  MOOMT  119, 12210.1*21*  Ml  I 

20CT  MOMMT  |4M  J4S.  l*i,tl,MMI,IKM  .II  .3MM4  ,»*  .MfM  .tt.VMtO. 

1  MtN.*T»«»MlK.*SS,IIMH 

C 

UMI  flOTMMI  ftfOT 

OTMMtniOO. 

JI1SOO*/STSO*l 

c 

C  nui  MRHM  CAlCbCATICa 

tSMMIMHHMtnS*M**(, 

00  200  2*t.2llll{ 

«M  ItU)  ,61  SMI  I  Ml,  204 
MS  HW>IUI 
first-) 

204  MN.I«muiH«Ut<«U.III 
tt  test  4T.  0.1  204.30* 

209  («MMml6*tS« 

00  TO  KT 

206  HOtHSWSWM 
20 »  COST  ISMS 

c 

C  TOTSS  fOfMCT  CMUUIWS  tis  dies  If  II 

t  SOM*  (  14*40* 1 2 1  «I*U  *  1/4 . 1  SSf  T 

OSiOS'fSMS'  210.12 1  *<Olj>— 2*o|  *2*01  J«l  IHI2«1 2— 2l/4./4«|04fT 

100  ccamoof 

fttTM*(M*MWS 

JM2SUHI 
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215 


c 

c 


CALCULATE  AGKSMTL'N  Of  PAIL  PllSE 


EAVFL-O. 

2M  ENVFl-EAVPl.«Uj  JN)*.5»tt,JK|4iX{  JP.  U-Sf  4P-1)  I 

if  U*  .lt.  jspax t  2iarni 
210  if  (utjf-ii  .st.  c.i  211.212 

21 ‘  IF  «4N  .6T.  1)  212.213 

212  JA-jN-l 
SO  TO  204 

213  JN-JSfAX*-* 

C 

C  CALCULATE  *i*ENT!JP  CF  PFECliF SOP 

ENVFR.O. 

214  EJtVP«»ENVPa».54L8JAJ«01JFl*t!ttjm»-XI.II«-  1)1 
if  tjn  .st.  jstaas  210.21; 

219  jn-jnai 
SC  TC  214 

21*  ERYPP«ENVPL*€NVPR 
OTFF-ENVPP/SNAX 
OTPULS-EHVPL/SPAX 
C 

C  CALCULATE  PAXIFUN  FGTEATIAl  PCPEKTLN  Of  VAPOR 

4-1 

IN VGA-0. 

OC  220  4-l.JSTAA 
IF  (J  .GT.  J9MMAI)  F-R+l 
OC-EHlt  JI-EGSTEINI 
IFIOE  .ST.  0.1  214.221 

214  UAVC-<S9RTIUI>-il*UtJ-ll4  2.*0£l«3QRTtL'U)*lf  J)«2.*0E))/2. 
fNVRN-EKVM«UAVS*2Ft.  ( J 1 

220  CONTINUE 

221  CONTINUE 
C 

C  FAINT  OUTPUT  VARIABLES 

Milt  I1S.1C39) 

NPITt  1 1G. 1034)  N.T1NE.QTNH.JT S.ETOIAl .JFIN.JSTAR  < J SN4X .SNAX >XI JSM 
1AX) .CTPF.0TPULS.ENVNE6 .ENVPCS .ERVPL . EAVFP .ENVPP.EAVPN. PCTPOS.PUTNE 
2G.X11 ) .XtJll).Xt4R2).XtJB9)«XtJFIN).JRAA)«ANAl.X(JRAAX) 

RETURN 

1039  F0RNATI19H1  PCPERTUF  EDIT/) 

1034  FORNFT  I /,TX, 9HCVCLE.0X.4HTINE. EX.AhOTNF ,9X .1H4TS  .6X.AHETC1 AL.SX.4 
lPJFIN.lX.4HJSTAR,lX.M)J&FAX,(X,4PSPAX,4X.EEXU’iNAX)>/,)12I2E12.4,I 
2 12* E 12.4. 3 1 12. 2E 12 .4./ «EX. 4A0 IFF .A  X.INOTPLLS  »AX.AHEPVNEG.4X.6tt£NVP 
30S.TX.9NENVFL.TX .9HEPYPR  ,  TX  .9HEPVFP  .7X  .9HINV8N.4X.4EPCTP0St4X.6HPD 
4TNEG*/ .10E12.4./ .RX.4HXI  1) . 4X.XHX I JBNO 1 ) . (HX (4BN02 ) .4* .fHX ( JBNO 
93).9X«7AX(JFIN)t  IX.9H4RNAX.1X  .4KAAAX  «4X .IHXI  4RPAXI , 9E12.4, 1  )2t  2E 
412.41 

C***o*. *•*••***•. <••***«•*»••* 

C 

ENTRY  VLRIRI  ENTRY 

<  % 

IF  IN  .10.  1)  290.291 

290  I0UF-0.  •  NOCLUS-29 

00  IH  I-t  iRJEOIT 

CO  2ft  11*1. NATAL  9 
IF  UEOITII)  .IE.  4ER0UAI)  2RA.2E4 
204  CONTINUE 
ISO  R4fll)»IN 

291  IF  ILSUOITI)  240.299.24C 

C  STORE  OAT*  IN  IUPFER 

299  I0-S941RUFM  t  At  HI- A  1  A|  It+U-T  INI*l.tA  A  At  IB«1T)-'TS 
At  I0*H)-0TNN*1.E4  t  All*.!  t  I-0EL1IF  1  II-IR4I 
MATE*  •  NINO IAATRLS-l.il 
IF  ININTER  .EC.  91  M  TO  210 
00  221  l-l.HIRTER 
40-20001 II  •  I0>IE«1 

220  At  ll)-tSI40l«St4R*I)l/2.*l.E-4 
IF  IRIRTER  .10.  I)  224*210 
290  RilFT  *  1-N INTER 
00  22 1  IN-I.NLEFT 
10-1041  9  JE— JEOIT ( INI 


SUBROUTINE  EDIT  (cominuad) 


m  «?  iej*«s<48i'Pije 
m  m  szi  i- 1»* 

JS-JSOITSU  t  IMIMi  8  AJISt-SI^EMl.E-T  *  *« JS**l-hl,JE,3J 

AIIMI9S»*«4E)*&.f~9  «  R((«*27)-i»(  tEOFX  jt4EI-F(,)E)l»l.£-9 

if  ie«JS;J  »S'f.  o.}  «i  19*211-1, /DUE) 

N4-R4£(I>  t  RSaPJ'.-XtPtR.Jn 

m  TC  (223  <2243, 224 1,224 1,224 3,2243 ,2242  5  t«SRR4l 

2341  it  t9«S3)*NSK(  JE)  *  «II6*)9)>AET( 4E?  »  SC  TC  22$ 

2342  *(  S8*)S  )«*£K(JEI  *  SO  TO  22S 

224)  M  !B*J3)«VHU4E m.£-9  j 

229  CCMTINIS 

IKfftlWHi  i 

if  II6UF  .m.  ROM.US3  213,240 
2)9  Sr  (UNITES  2)3.233,S00.S61 

2)9  SUFFER  OUT  (*,ti  (R(tl,A{3C*l!C3US)t  ! 

63  10  270 

24tf  IF  I  IMP  .10.  2*MC£t.US)  i42i21C 

242  IF  UiWn.4  5  242,249*9(0,301  , 

249  IUFFER  OUT  14,  it  e*(90*W«)3lUS*  1 »  »AS ICCFMfl&iCJ  )  5  I 

t 047-0 

2)lt  GCTURN  I 

C  BUFFER  CD 3  REMRINQER  OF  AW  IfeCCRFtiTE  EUCR  I 

200  if  (  HSU*  »6T.  0)  ,.N«0.  I  HUE  .1.,  FCCUSt  I  '54.33?:  \ 

391  If  (UWS?,6)  331, 332,3(0, SCi  5 

392  BUFfFR  tUI  (4,11  (A(ll,A(304t£UFI) 

00  lb  349 

339  IF  IIBVF  .CT.  NOOUS)  3*0,349 

3*0  if  3UMT*4t  3*0,3*2,900,90! 

3*2  *«*FE8  OUT  0,1)  I A I50»FOOLUS*1  I  ,AI9C«ICt>F) ) 

34S  if  IliNI1,4i  3*9,400, 300, 901 

400  REMIND  « 

C  {SRC  CC3RCR 

C£  SOI  1-1,3900 

301 
C 

CRU  SEC0NBIX5JART  i 
IF  ( IFICT  .EC,  Ot  CO  TO  JOT 
C 

C  WRITE  RUT  Wf A8IRC  0*1*  £K  IAF*  7 

00  302  I-l,A 
4E-4E0IK1 I 

302  XJECt I )•*( 42) 

WRITE  nt  N.N4E01T  ,  I  JED  IT  (l),l-l,*l,(X4i£(I)«l-(.*( 

C  BUFFER  IN  TWE  ARR**  STORED  ON  IRRE  t 

307  IX81M)  «  I8UF-WJ0US  »  RRUF-IN-1  )/FCCMIS*l  •  UNSTH-NGCIUS 
BUFFER  IN  (*.U  <«ll),Af90«NOOM.S>i 
CO  32!  NS-1.N8UF 
ll-MOOOLUS*RCOI48«l,2l 
SOS  IF  I UNIT,*)  308,309,900,901 

369  IF  (NS  .EO.  R8UFI  310,311 

C 

C  RESET  U4STN  FCR  IRCCMIETI  CLCCR 

310  IF  (MOO  IN.RGOUISI  .EO.  C)  SO  TO  314 
liNC7M>N00IN»MClUS)  »  CO  TC  314 

311  IF  III  .EM.  II  60  TO  31) 

312  SUFFER  IN  16.1)  «  *(  H,AI9U*R00US>  ) 

CO  TO  313 

313  BUFFER  IN  l*,l)  ,*  19C4RC01US*  1) , M  l£«»FCU.tS)  ) 

314  IF  (II  .EO.  I)  WRITE  i  IS,  1041 )  1,231)  (JE  ),4E*l  ,4) 

319  l>IlU(W1)t<l 

C  FRINT  OUT  OF  FIRST  SCR  IDS  USURIES 

00  120  !-(t«!2 
CO  320  4-4,11 
326  4WI4* 11-614*4, 1 1 

WRITE  (18,1040)1 1 614,  ii  .4-  )«S)  ,  11(4, 1)  ,  JM  4,  1 1 ,4-*,  11), 
l  tai4,tt,4-ir,4e),t-ii,m 
c  RRERRRE  I* Ft  14  JCR  SICCWC  SCRStI 

tP  URtX  .CT,  1)  WRITE  119)  1 13 (4,1 )  .4*1 ,2  >.( f( 4, 1 )  ,4-34, SOJ ,  *»lt, 
1  121 
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c 


PFEPAlU  TAPES- KIR  Htnue 

if  !IFPLS3TU)»IF*LC7m  .M.  Oi  MP1TE  ( 7  SI  «  6i  J,  It ,  J-J,  11 ) »  I- I  i « ?2 ) 
if  f  IFPLST  I  3|4lf PLOT! 4I.IFPL0TI  S I  .NE  -  Cl  MUTS  it  I  H8SJ.II. 

1  J»27,33),  l>tl.l2l 

IF  t  IFPlCT  (41  .Hi,  Cl  MRfTS  19)  SSBIJ. II. >31.261.1.11. 121 
IF  (  IFPLCT (  31  .ME.  Cl  MUTE  111!  U  B(  J.l  !,J«33,3*5  t  S-I  1*  S21 
329  CONTINUE 
Ufa ifio  sc 

C  PRINTOUT  OF  STRESS  MISTfRlES  IliCONC  ‘CRISES 

If  4LALX  ,£(S.  II  6SC.330 

339  W>»SR-ll/5S*i  1  M>30 

I2-9C 

CO  349  IP-l.MP 

PRINT  1091.  UECMU  Jt),JE-l,6> 

£f  SIR  .£8.  HP I  33I.34C 
331  If  IPOOIH.SOS  .Eh.  01  340.336 
336  I2.P0CIF.3C) 

340  JS*PINO< 12.331 

REASK  19)  1)11  J.  II.  J-l,  31.  taiJ.lt.  >3S.3CI.  1-1*1 31 
If  1 12  .IE.  231  80  TO  343 

t*£NO  U9  IISSJ.il. >1.21. (ESJ.SI.J>3«.3Cl.I-;6. 12) 

343  PRINT  1092. 1 1  as  J.  1 1 »  J"  >  .2 1 ,  1 8  i  J.l  I  .BT.KA  .1  j .  J«39,44  1 .1  *>1 1 12) 

34S  CCHSINU- 
REN  INC  19 
C 

600  CALL  SECONCIXENCI 

SEMINS  6  $  KlIUNC  1  *  REMIND  f  %  REMIND  9  3  NtMINC  11 

C  CALL  TC  FlCTTING  FPCSFAR 

If  1 1  PICT  .EC.  C.  0  TO  62C 
PRINT  492 

CALL  PUP PLOT  INTEX,  SCENT { 

REM INS  7  *  REMIND  t  A  REMIND  9  t  REMIND  11 

620  CALL  SECOND  (PINAL)  *  CUR AFFINAL -FIR SI 

CUft-RENG-KSTART  A  OUR2*XENO~f  1RSI  t  CLA3*FINAl-XE NO 
MUTE  118.9012)  OUA.OUR2.QUR3.CLP4 
RETURN 
C 

C  STATUS  (PECK  PRINTS 

900  IP  (NO  .18.  NSUF  f  If  NCTOPCSI  N.PCCLUS  I 

MUTE  ua.ICAl)  68, LENGTH  t  GC  TC  600 

901  IP  IN8  .EO.  NSUF)  LENCTN.NOCIN.HODLLS ! 

MUTE  1(8,10621  NS, LENGTH  t  GC  TC  ACC 

490  F0RN4T  fiih  PUTPLCT  CALLED  H\ 

1040  PORN AT  (F9.0.4F 1C.3 .AIF9.3.R1 1  .f  S  .0.F7  .3  ;F'7.3 ) 

1041  FORNAT  I81H1  SCRIBE  CUTPUT.  IINE  IN  NICACSECS,  S  IN  NBARS.  CTNN  IN 

1  NANOSECS.  DELI  IN  IN  SECS  // 

2  SIN  N  TIRE  SI2/SCJ1  S23/SCJ2  S3VSBJ3  SIIS, 

3  TNI  Si  13. TNI  3113. TNI  S1I3.7HI  SII3.TF)  SI13, 

A  22H)  JIS  DTNH  CELT  IP) 

1061  P0RHATI2TH  EOF  ON  UNIT  t  IN  SCR  HE.  3F  NW'I2.  9H  •ENCTH-IJ) 

1462  FORMAT  I39h  PAR  I  IT  ERROR  ON  UNIT  6  ill  SCRUE.  MB- 12 .  IM.ENC  JN-I3I 

1070  PCRPRTI12ISI 

1000  POKNATI2I9.P1C.3. IS  I 

1090  PCRNAIOFtC.il 

1091  FORNAT  IlllNtSECONO  SCRIBE  OLTPl"’  PCR  AU  RELABATICN  NC'CLS-  N 

1R.N1 1 1/CN)  .  GAKIUNIHESS).  Y  .SC  .POIK  ILCEARSl ,  T INEIMICROSECSI  // 
21fX.6ITX.3NJ  >,IA.6X),//9N  K tl X ,4NT IRE .61 3X .TMT  CR  NN.3X.THS0, 

3NT > I/13X.6I 9X.SMCA  PU.AX.6HCP  GAPII 

1092  FORPAT  I P9.0. FIS. 3,1 If 10.91 

9012  POMAT  1 1/NOT  IRE  IN  SCRIBE  -010.3/171*  CCPPUT1NG  TINE  >P10.3/ 

1  IFF  PLOTTING  TINE  -P10.3/17P  TOTAL  IIPE  -F1C.1) 

mo 
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n  n  n  n 


subroutine  iqstsej.oj.pj.rj.cjj 


CSRPUTFS  PRESSURE  tut  sound  speed  for  sclids 

•  Rt£-CRLN£3S£N  F£S  CCPFRESS J£A 

*  expansion  EQUATION  OF  sts  for  densities  less  than  rhcs 

REAL  MlL.RU.RtR.MJF 
C  RISC  ELL  AN  SOLS 

COMMON  CSF »«,*$ , OA VC. CELT IN ,CCl£ ,CR*t . DTP Ih. IT* » CTNT .DU.CX , SOLD »F t 

1  FIRST*  JcJCVCSoJ WIT *JF IN. JSMAX. J STAR  *JTStLSL8(lll  .NAXPRI  ll )  »R» 

2  RC'TCStNPER«»FQlO, FLASTcSLAST,  SPA*  »T*, TIRE  »TJ,TS,ULAST,UOL0» 

3  XLAST  .kNON.XOLE 

C  EQUATION  OF  STATE  -  SCLIO 

erftftON  COSO (6. A I  .£l(A»AI.C2!*l  t-ENELT  (f.«  S  I.EQSTA(A)  «£SSTC(A  f  ? 

1  EQSTS(A:.EQSTEWI'EeSKi£I.ECSTHt£t.3Cm(0.£C$T$«£T.RATL(2»£li 

2  ALIA i »iWQI A I »RHCS} A) r TENS! 6»  3) «  V ACE (At . VO(A I. JONO (A) .RPCR (A.2 )« 

3  R.MUN.NNTRLS 

C  EQUATION  CF  STATE  -  FCFCUS 

CORDON  ARIA! «NUP( Ai »PORA( A.3 1 .P0R8I A .3  ) .FORC 11*3 1 »RMCP( A.3 1 « 
i  VACCPI At  3 i.OREF  .RHCPV.F® iNC 
C 

VJ-RMISIHJIMOJ  «  ENU-l./V.1  I  EH-EMJ-1. 

IF  (EMU  .0£.  O.l  10.3 
C  EQST  FOR  EXPANDED  JONES 

3  ENU2«ECSTN(MJI»Ilu-V4)AVJ  S  TSWCSTEIRJI 

IF  (ENU2  .ST.  -10) 

A  1St*TSl*ti.-EXP(£hU2H 

S  SF»(ENU»l.l/2.  A  EM£-E3t'>EN*Eft 

CHNU>IECSTC(»4)-ESSTR(R4I)*UAU»EN/EN2*.23*(N2/EN) 

TS2-ESS  H(MJ)»G*NU  *  PJ-(EJ-TS1  )*!JJ»1S2 
IF  (CJ  .NE.  0.1  A.2C 

3  CSC*(  E J-TSl  )A|TS2*.SA#HNUI  ♦TSJ* (EOSTE  (RJ  HTSl  IAEQSTMR4  )*(2.*V  J-l  • 

I  )«VJ<PJ*T£2/0J  *  2 .ARUM/ ]D J«3CLD ) 

IF  (CSC  .IT.  0.!  CO  TO  TO 

CQ-CSQ*CJ*CJ  A  CJ>CSQ»CJ/CQ«.29*CQ/CJ  *  CC  TC  2C  12/13 

C  EQST  FCR  CCMFRESSEC  ZONES 

10  FH«i « fOST$(RJ)*ERU*EQ$TO(»J))AERU*E8STC(“J))»EFU 

fr>EOS.'CIR4)*RHOS(RJ)/aj  t  P>FN*(  1.-.9AIRLAS l*C«C J*E J 
IF  (CJ  .NE.  0.)  11.20 

U  CS0»((3.«€0STS(RJ)«EWIA2.*ECS?CfRJl)A(RU«ECSTC«unA(l.-.9*6AENU) 

I  /RHOSIHJI-.SAC/OJMN  •  PJAQ/fiJ  «  2.#RLF/I0J«0CL0) 

IF  1C SO  .LI.  C.l  CC  TC  SO 

CO'CSQ«CJ«CJ  A  CJ»CSQ*CJ/CQ«.23*CQ/CJ  12/13 

20  IF  ILSURIA)  >SE .  RAXPRIAI E  CO  3C  30 

'  tSUB j A  )«LSUB( A) ♦ l 
23  MITE  OR. 110)  J.NrfSQ.EJ.OJ.PJ 

sc  ms  timt 

110  FORRAT  tiOM  EAST.  J-I3.AN,  N-IA.4H.  CSC-EIC .* ,5H.  IJ-E10.3. 

I  9R,  Q4»iIC.J.3M,  »J«E1Q.3I 
(NO 
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FUNCTION  FNELTI E J« M J) 

C 

C  COMPUTES  VARIATION  CF  STRENGTH  CR  FCCU.LS  hill-  INTERNAL  ENERGY 
C 

REAL  NATL  .NU.NUN 
C  MISCELLANEOUS 

COMMON  CEF.CKS.OAVG.OELTlH.DOLO.ORHC.OIMN.QTK.OTNH.OU.OX.ECLOtF, 

1  FIRST .J.JCVCS.JINIT.JF IN. JSMAX,  JSTAR,  JTS.LSLBUll  .MAXPRUl  ),M, 

2  NCYCS.NPERN, POLO, RLAST  ,SLAS% SMAX ,TF ,T IRE, 1 J.TS.ULAST ,UCLC, 

3  XLAST  tXNObtXCLO 

C  EQUATION  OF  STATE  -  SCI  10 

COMMON  C0SQU»6).Clt*.6>,C2(6).EPELTU.5>(ECSTA(6),EeSTCm, 

1  ECSTO(6).^QSTEUl.EOSTGI<)«EQSTHU).EOSTNI6)(EQSTS(6),MATLI2f6}, 

2  MU(t ) tRHOIfa) .KHGSIA )  .TENSt&«3I.VACCt6i.Y0(£)  .JBNDI 6) . NPOR ( t . 2 ) . 

3  R.RUR.NMmS 

c 

IF  IE J  .GE.  EMELTIMJ.il  1  GC  TC  3C 
IF  IEJ  .GT.  EMELTIMJ.2I)  GC  10  2C 
IF  IEJ  .CT.  0.)  GO  TC  10 
C  FOR  NEGATIVE  ENERGY 

FMELT  >1. 

RETURN 

C  FOR  ENERGY  IN  FIRST  REGION 

10  RR-EJ/EPELTINJ.2) 

FMELT-l.-RR*(l.-ENELTIMJt4)«4.*EPELTIPJ.3)*(RR-l.n 

RETURN 

C  FOR  ENERGY  IN  SECOND  REGION 

20  ORalENELTf HJ.ll-EJiy (EMELTtNj.l I-EMEIT IPJ.2 1 1 

FMELT"RR*| EMELTCHJ.*)— ♦••EMELTIMJ. 5 J  * IRR-1 . 1 1 
RETURN 

C  FOR  ENERGY  ABOVE  FELTING 

30  FMELT-O. 

RETURN 

ENO 


FUNCTION  FMELT  (complete) 
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SLBROLTINE  '•fMH 
C 

C  MACS  INPUT  SATA  ANC  INITIALIZE!  ARRAYS 
C  «  READS  INPUT  CARDS 

C  •  CONFUTES  COORDINATE  LA  VOLT 

C  •  CONFUTES  RADIATION  DEPOSITION  PCR  A  RAtlAIICN  FRORLEP 

C  *  INITIALIZES  OENSITY,  ENERGY,  YIELC.  SCUNC  SFEEC,  TENSILE  STRENCTP, 

C  CONDITION  INDICATORS,  PART fCLE  VELOCITY 

C  *  PRINTS  INITIAL  LAYOUT 

C 

REAL  NATL, NU, NUN, NUP.NEN.NIT 
INTEGER  N.PCRCLS.R1NTER.SOL 1C, SPALL 
INTEGER  HH 

C  NISCELLANECUS 

CONDON  CEP  .CRS.OAVG.CELT IN, COLO, CAHC.CTP IN,CTN«OTNH,OO,OX«ECL0,F» 

1  FIRST, J.JCYCS, J1NIT, JF IN, JSRAX.JSTAB.JTS, ISLE  111). FAXPRItll.N, 

2  NCVC! ,NFERN, POLO, Rl AST , SLAST , SR AX, TP, T IRE.t J.TS.ULAST.UOIO, 

3  XlAST.XHCk, XCLC 

C  EOLATION  OF  STATE  -  SOLID 

CONDON  COSQI A.AI ,C1IA,AI ,C21 4 ) ,ENEL1 It ,S I .EQSTAIAI .EGSTCIAI , 

1  EDSTC  It I ,EOST£ It  I ,  E OSTC I A ) ,E0STr I A ) , ECSTNI A I , POST  SI Al ,NATL 1 2,4 > , 

2  NUIAI.RHOI 6 I .AEOSt A I .TENS! 4,3 1 .YACDI A  I  ,YC li  I  »JBNO  14 1 *NP0RI6,2 1  • 

2  N.NLN  ,NN  TRLS 

C  EOUATICN  OF  STATE  -  POROUS 

CONDON  AKI4I,NUP(4>,P0RAI4,3),PCR«I4,3>.ACRCI4,3I,RH:*<4,1), 

I  YAOOPI A ,3  I ,OREF ,RFCPV,NP,NC 
C  DACIA  1  ION  DEPOSITION 

CODNON  SSI  300, SI .SSTCPISI , ST  ART ! SI , SCURF, SS TOFF, NSP EC, SSJ, JSS 
C  COORDINATE  ARRAYS 

CONNON  X  (300)  ,013001  .CH113001 ,01  3001 ,  Chi  I  IOC ) ,  E*-L  I  300)  300,31. 

1  NERI 300)  .NET 1 300  ,F  1300 1  »FHL  I  SCO  I  ,R  (3CC  i  ,S  I3CC) .SPLI30Q I.TI300)  , 

2  UI3GC  I, UHL (3CQ I .YHLI300I ,ZHLI 300) 

C  HALFSTEP  VALUES 

CONNON  CH.OHLAST ,CUH ,EH,PH,RH,RHLAST ,SP .SPLAST .UH.UFLAST, XH.AHLAST 
C  IDENTIFIERS 

CONNON  OISCPT 1101, IOENT , JEO I T (2C I .JREZCNIIS  J , NO AT El  31 , NEDIT.NECTN, 

1  N JEOIT.NR ,NREZON,NSEPRAT,NSPALL,NTEOT,NTEX,NTRI IS  I , TEOI T ISO) 

C  CONDITION  INDICATORS 

CONNER  INF. LINTER.FIRRCR.NCRPAL, POROUS, R INTER, SOL  1C, SPALL 
C  SPALL  ANC  RELAXATION 

CONNON  NSRI*I,TSPI*,*I,USP(SOI,XSPISO),LPLX,NICK.NEPH,NETH 
C 

CONNON  /PLOT/  IPIOT .IFPIOT It  I .LINES .ITPLCT .NTPLCT, IPLAGT, IF ISTIO) . 

I  IFLAGJ 
C 

CONNON  AI2000I 

CIPENSICN  AC I IOSI , AA| A,N, IS), flit, A, IS) ,ECGE (4#*,l5i,£I( 100' 

I  RHOC 1 4,4 ) ,TBL  I  ICS  )  .NCCNIA  )  ,NCE  ( A  ,4  ) 

CIPENSICN  OELF  IN(4,3) .CELXIA.S I ,TFt  4 ,S I  .NCELLS IN.S  I .NZONESI A) • 

1  IEDLIVI10 I.RLX IA ,C I 
C 

(OUIVALENCE  (AC,'  , UA,C 1 1 1«  I ) ,  Ifl ,01  SCI  I , IE  EE.DHLI  2SGI  I, 

1  I El ,EHl! 230) I ,|HMCC,NI39 II, IT EL, HI IS  I), INCCN.HI 1(4)1, 

2  (NOE, FI  ISO  1 1, (OELF IN,HI22t 1 1 ,10ELX,HI2SAI ) ,ITH,MI2fl*> » , 

1  INCEilI.H (3IAII,iNZCNES,HI 34A) I , I C  EPV IICUIYI 

C 

■E6  IN-FIRST 

100  CALL  NiNSETIO. ,  IEQU IV .OTTO I 
PIRST-IPGIN 

LINTEL  ■  IRL  I  NORRAL-IRN  I  PGRClS-lRF  I  PIRRCR-IRP 
RINTIR-IRR  I  SCI  It- IRS  R  SPRLL-IRS  I  NCRD-SH-ENO* 

LRLD-1 

C  READ  AND  PRINT  CAT A 

READ  4S,A  I,  ICENT.IDI  SCPTI  II,I-f,ICI 
C  CFECR  PCR  ENC  CP  LAST  CATA  CIO 

IP  IfCP.lOi  102,103 

101  STOP 

101  MITE  Hi, 311 
CAU  SCATEI  CAT  I 
MUTE  111,431  OAT 

MUTE  t  Ifl,  43 1  At,  KENT,  1 01  SCPTI  1 1 ,  l-S.IO 
OISCPUII-IOF  DATE  •  (  OISCPT  12 l-CAT 

0ISCPTISI-10H  IOENT  >  1  ENCOOE  UC ,33 ,01 SCP1  (4 1 )  IDEM 
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105  Kit  :4,IN0,I4II>,I-1,EI 

IF  UNO  .EC.  ICH  I  CC  10  ICE 

UNITE  ( It, 551 IND  » I A ( 11,1*1,1) 

GO  TC  1C5 

ION  IICKSMCE  10 

NEAC  74 iN  1  ,A<  ,NTEDT  ,A3  ,A4  ,K jEDt  T  ,A5,A6,PREZCN,A7,A$,NSEFRAI 
M«I  IE  111.  741*1,  *2.  MECT,  *3,14,  KJfcC  I T,  15,  It,  kR EZON.A ),AE ,N SEPRAT 
IF  INTECT  .EC.  Cl  GC  1C  12C 
NT-MNCI7.ME0T) 

REAC  )«.ll,«i,intIT(!l,l<l,MI 

UNITE  tll,14>Al,A2,IT£UITII>,I»l,PT> 

IF  INTECT  .LE.  7)  CO  TO  12C  t 
NENC  ?4,HE0t1II>,l«t,*.TEQT) 

MUTE  ll«,.*ltTEO:Ttl),I«a,NTECI) 

120  IF  INJECIT  .60.  C)  60  TO  12! 

P J.RINO  114 ,NJEO ! 1 ) 

NENC  7C,A1,A2,  I JEOITI  I),l*l,kJ) 

NNlfE  111,76)41,42,1  JECITl  I)  ,  I*  1, A J) 

IF  1NJECIT  .IE.  14)  CO  TO  12i 
NENO  1C ,  I JEC IT <I),I*15,kJ£CIT> 

NNITE  I  It, tO)(JEClTlll,l*15,NJE£IT) 

125  IF  INNEION  .EC.  C)  GC  TC  13C  r 

RE4S  79,41,42,INTRI I ) , I« 1 .NREZCN  )  ' 

MUTE!  It, 71)  A1,A2,(NTRII),I.1,MEZCH 
NENO  71 ,N1 ,N2 , ( JNE20NI II , l» 1 ,NN£ ICN ) 

HNITEI  18,78 i  Al,A«,IJNE2CNII),l>l,NRE2CM 
150  NENO  74,41,A2,PEC?R,A3«44,NEClT»A5,A6,NP£AN,A7,A9,NAXPRh 

MNITEI It, 74)  Al,A2,N£0lN,A3,A4,NE0IT»A5,46,PFERK»A7,A8,PAXFPk 
IF  IPAXPNN  .EC.  01  GC  TC  135 
NENO  71,4l,42,(N4)PAII),I*l,ll) 

MUTE  lit, 7C)A1,A2,IPNXPNI1),I. 1,11) 

1)5  NENO  72,  41,  42,43,  JCVC$,A4,CF  S  ,A5 ,1S 

MITE  (lt,72>Al,A2.A3,JCVCS,44,CKS,A5,TS 
RE  AC  73,A1,NNTRLS,A2,NATFL ,A3,LIENC ,A4 , 1 FLC 1 

NNITE  I  It ,73 IA1 ,NNTNLS,A2 ,MATFL ,A3 ,U2ENC ,A4, I  PICT 
FF-0 

c  ••••  N-LCCP  •••• 

c 

00  24C  P»l .NPTRIS 
NNITE  I  It. 45) 

MAC  50,NATLIl.  ),NATll2,P)t4l,AK$IP).42.NSRtN),A3,NYAH, 

1  A4,NPCNIF,1 I, A) .NCONIN) 

MUTE!  It, 4C IRAKI  1,N),  NAHI2,*),  At,  RHC!IP),A2.  NSR  17  .‘,A3,NYAP» 

I  A4,NPCNIP,1).A.  .NCCMNJ 
RHOINI-RhOSINI 

C  •'  ■> 

C  REAC  IN  EOST  VANIAtLES  •  »•• 

C 

NEAO  42,  Al,A2,fCSTC<NI,A3,A4,iOSI!IPI,A;,A«,ECSIEIR),Ar.AI, 

lCOSI6IN),A4,A10«EGS1MiN),All,A12«CCS1S<P.',A13,A14,Et5TMP),415,A14 
COSTA IR)aCClTG IP) ARNCS IP)/EC$1lIP) 

IC$TN|N)«10STC INI /I IOSTCIP  tAECSIE IP)*tHC  S  IP  i  I 

Milt  lit, 42)  Al,A2,CCSTCII"),A),A4,EC$rCIP),A9.24,ECS1EINI,A7,At. 
IEQSTCIN), 44, A |Q,f CSTP INI ,41 |  ,A|j,E(SlStPI,4l3,4l4,£CtTMP),415, 
2AU.CC31AIP) 

C 

C  REAC.  IN  >1 SCCSI17  AkO  TENS  t  ( E  VARIAtlfS  •  ••• 

C 

REAO  42,AI,A2,CCS«IN,tl,Aj,A4,CI  IP,<  ),a;  .At  ,C2(P| 

MITE  t 11,42)41, 42, CCSCIP,4},4),44,C1(P,<I,a;,44,C< IN) 

•E AC  42,A1,A2,TENSIN,II,  A  J,A4 , HNSIP.2  )  ,A5  ,A4 ,1E NSI P ,3) 

MITE  I  It, 42 1  41,42. TENS(P.l),  A)  ,A4 ,1  INS1N.J  I  ,A!  ,  At  ,  1ENS1 N,  3) 

C 

C  •••-*  NC AO  IN  SlNtJT  RELAXAIICk  VARIAfltS  •••• 

C 

C  CCRRESPCNCENCE  OF  NIX  UU  PCOEl  ANC  CCPPCP  VAA1  AtlES 

c 


c 

CCNvJON 

TSAI  11 

121 

111 

14) 

1!) 

l€l 

MT 

c 

INPUT 

ALU  II 

<21 

(>  1 

141 

151 

1*1 

in 

(•I 

c 

l 

•NILAS. 

TALI 

- 

- 

* 

- 

- 

- 

- 

c 

2 

IANS 

I) 

12 

•EE 

TP 

CEE 

IPS 

pro 

MO 

c 

3 

GILNAN 

CEE 

P«! 

eft 

VP 

fNRC 

- 

- 

- 

c 

4 

2-P  T. 

TNI  A 

IT 

- 

- 

- 

- 

- 

- 

c 

5 

EAUSCN. 

IPO 

XP 

PUUP 

VACf 

- 

- 

- 

- 
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c 

NSRRl-NSR  If  )4 1 

CC  TC  1220, 210, 212, 212,21C,2lC,21CI  NSRRI 
210  MAC  94,14(1), RLXIR, I  1,1*1,  A) 

WRITE  118,9411 Al 1I,RLX(N,I), I-l,4‘ 

ALX(N,S)-RLXlR,tl*C.  1  CC  IC  214 
212  REAO  94,  1 Al I)  ,RIX| R,  1 1 . I-  l, 8) 

WRITE  118,941  IA<I),RLX<A, II, 1-1,8) 

214  LRLX-2 

EC  216  I R-  1,4 
216  TSRIfl.IRl-RLXIR.IR) 

IF  IRSR(R)  .EC.  1)  T4RIRf3)"1.522*1SRfjW,2) 

220  ENCLTI R, 1  l-£Nf.L TIH,2)-l.E2CI  I  ERELT  IR  ,4  1-1. 

IF  INVAR  .EC.  0)  GO  TO  240 
IF  INVAR  .£Q.  21  GO  TC  23C 

C 

C  **••  REAC  IN  V1EL0  VARIAELCI  •••» 

c 

REAC  92,41,42  ,VOS,  A3  ,A4  ,  *U(  RI,A3,A4,YAC0IM.' 

WRITE  1 18,92)  Al,A2,V0Si  A3, 44, RUN  I, Al  ,A6 , VAOO IR  1 
VOIRI-VCS 

IF  INSRIRI  ~NE.  31  YA00CR)*.666e*;«VACCIRi/(ATCj(AI»l.2-.5»YCS/ 
1  RUIRli, 

RUIR>-1,,333333»RUA) 

IF  INVAR  .EC.  1)  GO  TO  24C 
C 

C  ••••  REAC  IN  REIT  VARIABLES 

C 

230  REAO  T6,A1,A2,(ERELT(R,II,I-1,S) 

WRITE  1 18, 74 141, 42, (ENEL  TIN.  11,1- 1,3  I 
C 

C  >•••  REAC  IN  R3R0US  VARIABLE! 

C 

240  IF  IRRCRIR.il  .EC.  01  GO  TO  23C 

NR-NPORIR.l)  t  RA-RR*1  t  NRCR|R,2)-AR 
REAO  76, Al. 42. IRRCAI I.MAI, 1-1,61 

WRITE  1 18, 74IA1,A2, 1RRQRI I, FF 1, 1-1, 6  I 
RHOIRl-RMOFM.RRI 

REAC  77,41,42, ICCSQIR, 11, 1-1, *1 

WRITE  111.  7  1 14 1,42,  ICOSCIR.il.  1-1,31 
REAC  77,A1,A2,ICIIM,I1,I  ,11 

WRITE  IK,T7IAl,A2,ICIIR.I  I.  i,*» 

R2-0. 

CC  243  N-l.WR 
RCRAIR.RR1-R1-R2 

REAO  92,Al,A2,R2,Aj,A4,0ElR,A3.A4 .VACORIN.^R  I 

WRITE  U8,42)Al,A2,R2,A),A4,C£l»,43,46,V4tCRlN,*Rl 
TGRit  W.RR1-1R2-R1I4RECRIR4  1.RR  I /lAKRIW  «l, Rf  i -RRCRI4.WRI  I 
RORCIR ,RRI-4.*0ELRVRR0R IN*, ,RR IWRPCFI 4, RR 1/1 RWCRIN+ I, NR I 
I  -RHCRIN,RR|1**2 
243  CORtlNLE 

R0R1I4  RR1-P2  I  R'RCIWR.REI-CELR 

REAC  9 2, A  I, A 2, 44 1 R I, A 3, A4,  RLR IR 1 ,41 ,46, VOIR! 

WRITE  (18.92)41. 42, ARIRI.11,  44,  RUM  R1 , 43 , 44  .  VCINI 
RURtRI*!. 3133334RUFIR) 

C 

C  «•••  REAC  IN  EOCE  VARIABLE] 

( 

230  IF  I4CCMR1  .EC.  Cl  (0  TO  280 
NCONST-NOOMN) 

3fl  2*0  NC-1 ,NCCR]T 

REAC  34,Al,W>E(R4CI,42,43,RMCCtR,Wtl 

WRi It  118,34141 ,NCE IR.NC1 , A2, A), AW<C I4,R( 1 
HOfONOriK.NCI  I  ROE  l»*CtO*  1 
NDQ-RIRCil?  .NOEOl  *  NC1-R1W0I  T.kUII 
*EA#  f» , A  1,42, ((OGEIR.NC ,WC I ,W0* l ,WCC  I 

WRITE  *l».74IAI,A2,U:C(EiR.WC,MI.WC-l,Mtl 
IF  I.WCSC  ,L«.  Ti  «  TO  233 
REAC  T  4, 1  VOCE  IR,NC,MII,N0,t,4£E0l 
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MITE  ( II,  71 )  IEDCE  IF  ,AC ,A0  I.AC'E.ACEC  I 
29)  MFC  T9, *1  *12*  I  AFIN.NC.NO  I  «NO»  1  ,k01 1 

MITI  III* II III. A2.UMH.NC.M0  » ,AO*i.AOl> 

II  {Mil  .11.  71  6C  TC  29* 

MIC  79,<AAIN,NC,NO>,kO«(tACil> 

MITE  <1I,74.|4AIA,AC,A0I,A0-I,ACI1, 

29*  MIC  7*.  *1.12.  I8IH.NC  .NO  )  ,A0>  1  ,A0 1 1 

MITE  t  II.  7*  IF1. F2,  (Cl  N ,  AC.  *CI.  AC*  l.NC  11 
IF  I  AC  El  .Li.  71  to  TO  2*0 
MFC  79. ISIN.NC .90  )  ,A0*8 ,ACE 1 ) 

MITE  UO.TIIIOIF.AC.AOl.fcO-A.ACiU 
2*0  COFTIkUE 
C 

c  •••*  MIt  IH  ZONING  VMIABLE!  *••• 

C 

2 IB  MEM  42.A1.AZCAESIN>,A2,NCELLS<M,  li,A3.A4,1H(M,l  I, *5,4*. Oil* 

I  IN. 1) <F7.FA.DELF  IN (N, 1 1 

MITE  1 11.42 IF! .A2CAES IN) , *2, FCEILSIF.II, *3. l4.THIN.lt. AS, A* .DEL I 
I  IN. 1 I . A7. Ft.OELF  ININ,  1 1 
IF  IklCNESINI  .EC.  II  CC  TC  210 
»2C*.»2CNE$IFI 
CO  219  N.2.N20N 

MFC  44.F1.F2.ACELLSIN.N)  , A3, *4, TF  IF.N) , A9.A* ,0£ LX (N.A I . 

I  F7.FI.0ELF 1NIN.NI 

219  MITE  Hi,F*lFI,F2.ACIil$(FtAJtA3,A4,TMF,AI,A5,AE,CELXIN.AE, 

1  A7.il.CELF ININ.N) 

210  CONTINUE 
C 

C  *•••  ENO  OF  N-LC0F44** 

C 

f  CALCULATE  20NIN6  ANO  IklUFLIIE  CELL  CUAOIAATES 

C 

mi-o. 

J  -  i 

00  990  F.l.NNTALS 
N20ft*N20MIS|N> 

OC  910  k2*l,A2CA 

FN-NCEUS<N.N2t  *  IATI0.1.  I  F I  *C .  I  CX-OELX  IF.  N2I 
IF  IOX*OEtF  IMF.A2I  .EC.  C. »  CC  1C  249 
C  FIIFME  EON  CLONE 7* IC  FtCCFESSICA  Cf  CELLS 

AFTI0*0ILFIA|F,A2)  I  CC  TC  7*0 
C  FNEFANi  f CF  MIUNEIIC  FtCCFESSICA  CF  CEILS 

1*9  IF  ION  .AE.  C . 7  CC  TC  999 

IF  IOCLF  tkIN.AZ  I  .NE.  C.7  CC  10  79C 
CJ-lHlN.NX  l/fk  I  CO  TC  3*C 
990  OX*2»*TNIN*kl l/fk-CELF ININ.kZ) 

999  F|*i.*ITMN,NZI/Fh-0»l/IFfc-l.) 

9*0  JA«2«kCEll9IF,A2>  t  Ji«J*l 

CO  2*9  l*JI.Jk 
III 

149  CX-AFTIC*C**FI 

ICO  J»Jk  I  JOkOEF  !•  J  (  J*J*t 

too  lUi-io-n 

JlNITai  A  JFIN.J 
IF  MATH  .M.  <1  CC  70  900 

c 

c •**«*•« *4  AACIATICN  CIFQ9 It  KM 
C 

A*  *4  9* . At .kSFEC. A2. A). AkCL ( 

MITE  1 11,941  A  l.kSFIC .A2.A2 , ANCLE 
AMH-CCSIAkOU/J  7.79977111 
CC  *49  .E*I,1J7I( 

•CM  40.  IAI  17,1*1.11 

MITE  III.4QH  Al  II. 1*1, FI 

MFC  MMIMMR.AE.NM.Al.kAAf  ,**.;U«T(ASI,I9,  bSTCFIASl 

MITI  (II.  l«7Al.fcMNN,A|M*I.A».NAA|,l4,H4AUk|},A«,  SST0FEA91 
S9T0FN* ANAA II  SSTOFN.HTOFIA9I  I 
IF  lull  .kt.  C»  CC  IC  lit 
IF  INMMJ  .TO.  01  CO  70  *2C 
MM*  I  I  IENF*t. 

C 

C  AAA  1 1  AAA.  IFtCTAUF  IkFUT 

MFC  14.  At.F2.HH* 

Mill! |C,  14 1  AI.AJ.FIU* 
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OC  *15  AH*l,NHNll 

MAC  ll,Al,A2,!8l(NHl,A3,A*,C  I  IAM.A5.A6 

AM  IE  (18.  U  lAl.AJ.TPMAHl  , A3 . A*. E I ( M- 1 , A3, At 
*15  f  1IM-I-EHNH*ANCL£*E  LUX 
A8-1  I  Ct  TC  *30 
C 

C  HACK  BCDT  INPUT 

*2 C  APAC-Nei  A  NhNU*lCS 

IT  (NS  .NE.  II  CC  10  *2* 

HEAD  *0,(81 11,1*1.81 

hUITE  I  |g,ACHA(  11,I*1,(I 
KE AO  12.  (TBL  (AM, AM- l,  U9I 

UNITE  118.  12m8UNM.Nfl.lC51 
M-l 

*24  81  AC  52.A1.A2.TENP. A3. A*. ECAL 

bNITE  t  i3.52IAI,A2,TEMP.A3.A*.ECAl 
CCAl*ECAL* ANCLE 
CO  *21  Nfl.lCS 

*28  El INHl.ECAl*.Ol*l 1  .-.9*1  AH/ ICO I 
C 

C  CGPEL1AT ICA  CE  ACSCAET  UK  CCEEMCIEAT  -  Ac 

430  28EC-1 

00  **C  P'l.APTALS 
CO  *33  AN* 1. ICS 
*33  ACINM*0. 

ACCKST-NCOMPI 
CO  4*5  NC*  1  .NCONS 1 
NEOC-1 

CO  4*5  NT- 1, NUNC 

*38  IE  INEOC  .CT.  NCEIP.ACil  CC  TC  44C 

IE  lECCEIN.NC.NEOCI  .CT.  T3UNHI*IEPPI  CC  TC  *40 
AEOC*N£OC»l  I  CC  TC  *38 

4*0  AC ( NH I • AC( Ah|*NrCC(N.NCI*AAI N.KC ,NEOC l*II8LtAhl*TCPFI**BIP .NC.NECC 
1  I /ANCLE 
4*5  CONTINUE 

C 

C  OlSniBUTE  ENE8CT  INK  CEILS 

J8N0P- JCNOI  «1-1 
CO  435  J-J8E6.J8N0P 
E5LP-0. 

CA-AI  Jtll-«(J! 

00  43C  AN-l.AHAU 

IE  (IIINNI  .CT.  |. 1-201  CO  TO  *SC 
IIX*f  1(NH1*(1.-*XP(-1.»*CIAHI*0*11 
IIIANI.EIINeI-IU 
(SU**t|2«£SlM 
430  CONTINUE 

433  S$(2,NSI*ESW»**.  I8«f  l/*HC(Nl/0»/lJ!ICPl*S  1-STAAT IASI l*SSI J.ASI 

480  28EC*J8N0IN1*1 

AN»*8M 

IE  I  AM  .CC.  AMAJ1  CO  10  *2* 

C  CNC  OF  NSPIC  LOOP 

4*3  CONTINUE  *  CO  10  5CC 

c 

C  A8| 1 1 8 ANT  CtPOSIItON 

4  TO  MAC  ll,(AIII,|.|.IMmi 

•MITE  (18. 38)181  1 1.1*1, Tl.fll 11 
MAC  T*fAt,A2.IK(N).p.l.APl*L:i 

Mill  ll8.T4IAl,A2.IAC(P),»*l,A*lAiSI 
J81C-1 

00  488  A-l.APlAll 
2*AC*»J|A0IP1-1 
00  4)5  2"28EC.28*0> 

C8**l2*tl-XI2l 

111*111  11*1  l.-l*P(-AC(N  1*01  II 
H  111*11111-812 

4T3  SiU.II*ill*4.U«C  l/NKHNI/OI/imCMkll-SUAUAWI 
480  2888*28*01  N I  *  I 

C 

C  ••••  8880  IA  F1CTT I  AC  ICAIAtlS 

C 

300  DO  382  1*1,* 

302  TE  PACT  1 1 1*0 
MINI  •« 

IE  I  TEICMIPlCT*  1 1  380.5C3.5C4 

303  IfPU  '*188101111*1881011,21*1  *  1EFIC  1 1  J  LlPPtOI  I «  I*  lEPtOt  I  3I-* 

AT  PICT  *13  A  1 ILAC  1*3*  IPtCt  •  TFL  *<•  J*f  *IPL  1 1 
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CO  50*  1*1.1 
1C*  IH1S1UI*! 

SC  TC  ItO 

501  mac  Jc.Ai.tifrict,; '.im.ai, *2.11*1$ 
f«IAt  20.  At.  I  If  SLOT  t  1),  I-  1,«)  .*<  ,L  lit  5 
if  timami  .tc.  ci  cc  re  sic 

ft  AC  2 1, At  ,A2,  ITPLCT.AT.MPlOT,**,  IflACI 
fOlAT  2I.Al,A2,lTft.CI,A),*mCT,A*,j[fLAC) 

no  if  iifficritt  .tc.  o>  co  to  sec 

ft  AC  22.At.A2, 1  If  1511 1)  ,1*1 ,*) ,A <1 II  )  ,|»7,AI  ,**,  If  t*CJ 
f*»AI  22.A1.A2.  IIHJSTUJ  ,  1*1, 6),  A  3. 1  If  IS  II  II ,  I- T.ll  .A*.  If  L  AC  J 
C 

C  CMC*  fC*  Iff  CNC  Of  CATA  C£C« 

1*0  flAC  AC  *A 1 

If  IfCf.lOl  AOO.lt] 
in  mix  ut. in 

Itl  MAO  AC  .At 

If  IfCf.lOl  100,11* 

C 

C  ••**  IAITIAL  Ilf  CONCIT  I0A.C6K1 1  IT.ttAHU  AM  VI 610  VARIABLES 

c 

ACC  J-C 

CO  AJO  R*i, RATALS 

TO»>VC(f|«.****r*»OtP) 

tj*0.  f  CJ’S.fi 

If  (NfORIN.II  .AC.  C)  CC  TC  4C1 

Ml.SCUt  t  PUA-PUthl  »  CCLC.RfCIf) 

CALL  fCSmj.AfOIAl.f  J.f  ,CJI  12/17 

CO  TC  *02 

*01  NN-fOAOLS  t  OOLD*DAfF*t.MCIf  >  1  *C»I  I  M.  I  fJ-C. 

CAU  fCAtCSKt j.AhClfl.f  J.P.ATCMl  .  21  ,CJ>  12/17 

*42  J*»JIACIM) 

Jl-JM 

CC  *10  >41. JA 
miJI-CIJl-CJ 
OMllJI»CtJl»*fCIA> 

HJ.IKf 
hi J,2l*AC«fAl 
MJ.JfJ 
IIJI-HAllR.il 
YhllJt-TOA 

!NL  I J  1*01  J I  *  (  A I J.  1 1  •!  1  Jl  I 
Attf|«AlRIRI*| 

(O  >0  IAIO.IIC.ACl.tCA.A10tllC.AC7l  *SA«1 
AM  A(fl  JI»*C*|A,71  *  N(TIJt*Al>lh,(>  I  CC  K  tlC 

*0*  AfAIJI— ALI1A.S7  t  WTIJt-O.  *  CC  1C  *10 

AOT  M  TO  »**!<«  I 
*10  COATIMt 

MU1.2I-AIAT6A 
It  AAl-ltASIR.  )1 
hi  JA, 21*11  Alt* 

AM  COAUAVI 

N|1,2I«NI  Jf  IA,2l*}fAU 
CIAM-l.t-12 
IP  I  RATH  >  111, TOO, 100 
C 

OffOSIltOA  toil 
C 

TOO  Milt  III,  I«1  ICllCffl  tl.l-I.UI 
J*tW  «  Alt'CCl'C. 

40  >A*  Nl.Wini 
J0Rt*»JMOIAI 
oe  TO*  J-JltS.JtkCR 
*IJI«*I J.ll-ll Jl 

tK-e. 

OC  702  AJ*l,l«5»|r 

T02  tAS*lllJ,hJI«U,TBHASI-llA»Tl*i|).tfc 

C  1*JT  TC«  If  T  T  I  AC  Jilt* 

i*  tiftuamt»>  .ct.  mu  j<»*»*.> 

C  1KM  (AffCT  U*CS/C*l,  CAttMtl  **t  ?t*  0»  CUOAIfl  l»  -A- 

Aij.ioeiMfc  i  tij*iccci'f*(/A.itt(  > 

A I  J«il(Cl*AI>l»Oei*2hi  U1*A1  j*  1*A1J 
70S  CCAT'Mrt  *  Jt«t*J#W(AS«l 
K*  COM  IM( 
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710  ^-FUGlJFIU-l.'CM.JEUCIFIl 

MITE  lliaillJ.MJtiKIJI.«IJ««IOI.<IJ«lCOOI,miJl,C(JI.I!UI. 
t  TI  JJ  ,/«<  JI.IMHI  I. Ml, NAIL  12,*  I,  IF  I  J,|  1,1*1,31  .  ,JZ  I 

IF  IJi  .EC.  JF1A-1I  CC  TC  SCC 

IF  M2  .ME.  50**)  CC  TC  HE 
*•*♦1  ;  UNITE  I  19,  ISI (C  ISCFTI  II,  1*1,  I C  I 

III  IF  U2  jelUIHII  CO  TC  Tie 

*-N«l  I  UNITE  119.641  *  CC  TO  IlC 

C 

C  IN  IT  1*1 1 ?F  mcCITY 

•  CO  JFIA2*JiA0M*TFl» 

00  9!0  J*1,J»IN2 
910  II  Jt«LHtUI*U/Efl 

JST*N»jF{N2«i  t  <C'.NU-I.  *  CC  TC  All 

Cl)  HI  1  ,2lBHNNCfl  I  I  SlLNN*!. 

uii>".s*umc 

C 

€•«*••••••  VEI.CC  I IY  CC  IT 

C 

fllfl  UNITE  IIS,  141  ILISCFTI  II,  1*1,  Id 
CO  ti 0  J-1.JFIN 
•20  AIJ1*X( 

4-F-J1-  I 

82)  J2*NIACIJFI*-i.)0®T»Jfl*0(TJI 

UNITE  I  19,17)1 J, SI  Jl,*l  Jt.UIJI,IHLIJ),CI.  I.CUI.TIJI./HLI  Jl, 

1  MHIl.N).l'*Ut2.M,tFU,ll,I*l,  Jl.J.JUl.Ji* 

IF  I  J2  .EC.  JFI4-1I  CO  TO  SCC 
JI«J2«I 

IF  I J2  «U| .  )0®K1  CC  TO  flTC 

K>K«1  |  UNITE  iK.ltllOlSCFTII  » .1  - 1  ,10 

•  M  IF  I  J2  .HE.  JE4C1HII  CO  TO  *2) 

M.|  1  UNITE  lit. ESI  *  CC  1C  E2S 

400  CALL  SECCNOITUIII  *  CU** IU1T-F INS1 
MtITE  :  14.  HI  OCN 
MITE  119,41) 

NEIUN4 

C 

10  FCNHflT  1ST,  13, AI.I3>Al,li. A!*, 2>.£U,!, At,  «.£lt.3> 

It  FWaiTUIlI.lM  1C.JI  I 

12  FCNUT  IflE 10. 3 1 

14  CONUS  II  IM.1CA1C//  IMF 

1  J  01  *UI  E»C  SLFCAl  VUUI  CIJ1 

2  OIJI  TIJI  /HllJl  FATCNISl  t-t*t  J  . 

3  / 1C2F  CN  C*  C*C5TC»  CSIS  CV4/CF2  CH/S 

SEC  GU/CNJ  CY4/CN2  CNFCHi  1 

1)  FONNAT  1  Is,  «ClC.3.2*«2AlC,)t*,*l i.l)> 

I*  FCtUAHIMl  ,10.102/  13IH 

I  0  Cl  IUI  «UI  IMU)  CU>  CUI 

i  TUI  /HI  I J 1  UNTENIU  tCSC  J  , 

J  1 102U  CU  CH  CU/41C  0Y4/C *Z  CVJIC  CIVC 

SN3  C»U/CU;  CF/CF2  » 

IT  FCMAT  IIS,  «{16.}.«».2*lt.M>.Nl>.l!) 

19  FQMATC29H  HUE  IS  CCmiU  CEMSI  !)  ItU.U  SECCU0S.1 

20  FON?*T  IA10«4I9X,!2I,N9, 111 

21  FOflMTT  1*10, ?■*(, tilt 

22  FQFNNt  UAlC.Al).*).?!).**.  t/l 

ji  tgfnnti iMt,2)«. j)F4«*  at  *ki f  i  usee  timtii  n 
I)  F09MI  mo 

si  FtNMT  Hull 

SJ  FCMAT  ITU  GATE  •  *101 

SS  FONMT  I2*s,t2./I*I.I2I.SI,M,IS,;<*.|;| 

4)  TCHII  U|0,liC,«tlCI 

)S  FCNNA1|A9*I 2,2***110,31 

V4  KtMllKMIt.il 

)4  TONUS T  INI.NS,  1*101 

*0  FOtUI  19*1  C I 

*1  FCSU9T  I ?*10, 2*)1 

*2  FONMII«9,12,*T,ll,il2*3.EtC.ltl 

*S  F09NNIt*9,*t,t).3l2«T,UC.m 

•0  F0M*I«  I 
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FORMAT  (ttlOi 

FORMAT  (3A1C.11C,2!A1C,E1C.3)  i 
FORMAT  <2(AIC,110),A1C,E>  C.3.A11,  ilC) 

FORMAT  !  M  2A5* 1 1C  1 1 
F0RMATI2A5t7E20.3J 
FORMAT  (2A5.SF1C.A) 

FORMAT  I2A5»  HI?) 

FORMATIiOX. 7110.3) 

FORMAT!  IOX,  HI?) 

FORMAT  J3A10,f '4. 3«4( AH, 12 > ) 

FO«MATH12A5,EiC.})> 

FORMAT  HI  AS  »2X  >E  ICc  3 )  ) 

FORMAT  I  38HGERR  CR  EHCCINTERED  REACIAC  HEIT  DATA.) 
END 
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subrcltine  hafstef 

c 

C  (INCIUCES  ENTRY  HSTRESS) 

C  *  CALLED  BY  HYORC  TC  CCPFU1E  X,  L.  C,  E,  R,  5,  V  FCR  THE 

C  •  HALFSTEP  POINT  BETWEEN  J  AND  J'l 

C 

REAL  PATl,MU.MLM,MUF,NEN.Nf T.PECN 
INTEGER  H.PGRCLSeRINTER.SCLIC.SFAU 
C  P  ISC  ELL ANEGCS 

COMMON  CEF,CXS,OAVG,CEITIM,OOID,DRH£,0TPIN,CTN,CTNH,CU,CX,EOLC,F, 

1  FIRST,  J,  JCVCS.JIN1T,  JFIN.JSMA*.  JJTAR,  j  IS ,1 SLB 1 1 1 ) .MAXPR U 1 1 ,M, 

2  NC  YCS.NPERN, POL  C«RLAST,SLAS1,SMAX, IF, TIME, TJ,TS,UIAST, UTl.be 

3  XLAST eXNCN.XCLC 

C  EOLATION  CF  STATE  -  SCL ID 

COMMON  C0S&16,6l,Cl(6,6l,C2(«),EPELTU,S),EGSTAI6l,ECSTr  .A), 

1  FCSTCI6),ECSTE(E),ESST  1 1  .ECSJn  It )  .ECSTM6  I  ,ECSI  S(  S I  .PATH  2,6) , 

2  PU<6),RHCt6).RHCS(AI,TEN$l6.3).¥A£C(A!,V0U),JBKC(6)eNP0R(A,2>, 

3  P,PUM,NMTRLS 

C  EOLATION  CF  STATE  -  FCFCUS 

COMMON  AK(6),MUPI6),PORA(A,3),PCrvA(4,3)  ,PCRC  (A  ,3 1  ,  RFC  P 1 6, 3  I , 

1  3ACGP<Ae3t.OAEF,RHCFV,FF,Ml 
C  RACIAL  ION  CEPGS1UON 

COMMON  SSI  300, S  i . S  STOP  I  5  I, SIAM  I*? t ,SDURP  ,S3TC  FP.NSFEC, SSJ, JSS 
C  CC03CINATE  ARRAYS 

COMMON  XI 300 1 ,C ( 3C0 i ,CHL ( 3CD ) ,D (3CC I tOHl I30Q I ,EHL  S  30C ) , H( 3CC.3), 

1  MEM (300) .NET (310). PI  3001, FHL ! 3CCI , R I 3CCI • S I 3C0) , SFL I  300) , II3CCI , 

2  U«  300)  ,UHL(30blvYhL(3GC)  ,  7HL  (SCO 

C  HALFSTEP  VALUES 

COMMON  CH,CHLAS?,aiL.eH,PH,ftN,RH.AH,<H,SHLAST,UW,UH!  -'-ST  ,XM  ,XKL  AST 
C  IDENTIFIERS 

COMMON  DISCPTnO),iCENt,JECITI2C),JRUONIlS),NOATEI3),)<EOIT,NEOTP, 
1  N  JED  IT, NR  ,NA.E20N,NS£PRAT  , NS  PALL  ,NTEDT  ,NTEXrNTRI,SI,TECITISOI 
C  CCNOITICN  INCICATORS 

COMMON  INF, L  INTER  .MIRROR  .NCRMAl  ,PCRCLS, RIMER, SOL  10, SPALL 
C  SPALL  AND  RELAXATION 

COMMON  NSR143,YSRIA,Ai,LSP(50),>SP15C),LPLR,MCK,NEPH,KE*H 
C 

CIMENSICN  LI  10) 

CO  l  1*1.10 
1  LIT  1*0 

€C«0.0 

CX"X(J»l>~x:j)  *  ECLO-EMUJi  »  UHH-.5AIUI  JI»UIJ«U> 

£C  LC*CFL I J I  S  02*0. 

IF  IC(J«£>*C(J)*i<tJm*UIJ}*C2IPl  .EC.  C.)  7,* 

A  «-  C2«MI»ABS1C(  JUI-CI  Jl  )*RMCIM)/ICI  J*l)»£i  J>*DCLD) 

3  IF  1 1 i.5*01M-DTNH!A I 1 • 3*0 INH-OTN ) !  15, 1C. 10 

10  LM-UH  1J)-.5*(IOTNH«CTM/OX»02)*IRI  J!  3C0LC 

SC  U  1* 

15  UM»UMM-.5«(C1NM/0X«C1  »»IAI  J»D-  RUfl/ECLC 

IP  CHUJ)*OH*EHLUI/(LX*.5#CTNF«UiiJ«l)-LtJI))-OCLO*G2AIU;  JUI-UI  J)1 
LKL1JJ-LX 

XM*,5»IX!  ,'*.2**DTNF»IVFN*U'I 

IHLiJI*EH*E0LD-.5*IR(  J«L  )«R  I  j  !  >*U  ./OH- l  ,/CCLC  HSSCALHTJ) 

C  HSTRESS  ENTRY  ANC  STRESS  COMPILATION 

ENTRY  HSTRESS 
F*FMELTIEH,M) 

IF  IOH)  20.20,25 

20  PRINT  110, N, J.OF.T  IBE 

CALL  ECOUMP  J  LSLBUI*!  (  N-M-J  *  CALL  SCRIBE  *  STOP 
C  C.O**UTE  Clt  VALUE  OF  SC 

21  S0M»SM.C4l-PHllJI  I  TF»  1 .  ♦€*«£  CS1A  IP)  t  CREF*CHPTF 

C  ESTABLISH  ROUTE 

IF  I  H 1  J  i  \tl  .N£.  PORCLS)  CO  TO  5C 
IF  IF  .CT.  0.1  CC  TC  AC 
C  UNCONSOL IOATEO 

MUM*e.  S  CRD  ECSTIEN.OH.PHLI  J),P,CCI 

LI  31* J2 

SOH-RN-O. 

IF  IPHLIJI  .IT.  0.)  17,59 
37  PHll JI*SHLI Jl-C.  «  CO  TC  SC 
39  HI J,1 )*SQLIO  t  1151*39  t  CC  TC  5’ 

C  SELECT  POROUS  REGION 

AO  RH0Py*F«IRHCH3  ,PR l-RNCS I PIDFNCSI M )/T F 

LI 3I*A0 
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IF  (OH  .GT.RHOPVi  49,43 
43  NC*0 

L(4)«43 
45  NC-NC+l 

IF  (OREF  .GT.  RHOP(NC*l,MP)  .AND.  NC  .IT.  NPORIM.21)  45,60 
C  SOL  10 

49  HIJ,U  =  SOLIO 

50  HUM* MU  (Ml  *F 

CAU  EQSI(EH,0H,PHLIJ1,M,CHL(  JII 
L(5  1*50 

53  YAOOM*VAOD(M>  t  NC*5 

IF  (NPORIM.ll!  55,55,54 
54  0R£F»AHAX1(  CHIEF  ,R HOP  (  5,MP  I  I 
IF (OREF-RHOP (6, HP  I  167,55,55 
55  C0r*C0SQ(M,6)  t  C1T»C1(M,61 

L  ( 6 1  *55 
GO  TO  TO 

C  POROUS 

60  CALL  POREOST  (  EH,  OH,  PHL  (  J I  ,M,  MP  ,CHL  I J  1) 

L ( 5 1*60 

YAOOM*  Y  AOD  P ( NC , MP I 

67  COT*COSO(».NCI»ICOSOIM,NC»II-COSQIM,NC)  I  *t  DREF-RHOPINC  ,MP )  1 

1  /(RH0P(NC*1,MP|-RH0P(NC,MP)  1 
ClT»Cl(N,NCl»iCl(N,Nt  1 1 -C l( M.NC 1 1*I0REF -RHOPt NC, MP1I 
i  / ( RHQPINC ♦! ,MP 1 - RHOPI NC , MPI 1 
LI  61*67 

C  VELOCITY  GRAOIENT  AMO  TIME  STEP  PARAMETERS 

7  0  DUrt*-2.*(0H-DQLDI  *(X:.tM  l-X(  J))  >  I  ( OH,DOLD  l*DTMH) 

DUMM.AMIN1  (DUH.O.  1  %  CS’CHL  (  JI  -DOF!/ 2. 

CF»CIT-COT«OUHM/CS  t  CEF»CS*I  l.*CF«l  l.».5*C.F  1 1 
C  OEVIATOR  STRESS 

IF  IMSRIM)  .£Q.  01  GO  TO  78 
URMO‘OFFOOLD  %  OAVG"  IDH+D0L0I/2. 

SOO*SOH  S  COEF*MUM*ORHO/OAVG  »  ME0M-2.PNUM 
N5RH*NSR.M>  *  3MUM-MUM 
GO  TO  173,74,74,73,751  NSRM 

73  CALL  RELAX! SOH.HI J,3!,VHL( Jl , $00,0 TNH , TSR1 H. 1 1 .ORHO.COEF , YAODH.  N. 

I  J.TSRIM.il ,YOIM! ,NSRM1 
GO  TO  80 
T4  CONTINUE 

CALL  AANORLXI SDH, HI J, 31 , YKL I J 1 , SDO.DTNH.DRMO.COEF .MEOW .YAOOM.N, J , 

1  TSRiM.ll;  TS*(M,il,TSR(M,31,TSRlM,41,TSR(M,51,TSR(M,61,NEM( J I , 

2  NETIJl.NSRM) 

GO  TO  90 

75  CALL  8AUSCMI  ( HI  J  ,  31  ,  SDO,  SOH.YHLiJI  ,Y0IM1,Y  ADOM,GRHO,COEF  ,  T  SRI  M,  1 1  , 
l  TSRIM.21  .MUM, N,J, OAVG, TS>  M,  3 1 ,  TSR  IN, 4  1) 

CJ*CMLUI  t  CSQ*CJ»CJ«4MAXIIO.,\HUM-OMWO/Q4VG: 

CO*CSO*tJ*CJ  »  CHL(Jl-CS0PCJ/C0*.25*Ce/CJ 
GO  TO  80 

79  SOH . SOM  »2 . *MUM9 1  OH -OOLO I / 1 0H»0  010) 

LITI-T6 

IF  (ABSISOM)  .LT.  YHLIJI9F)  GO  TO  80 
YHLl-il*AMINll  A8S I SOH) , YHL I J 1 ♦YAD0M9A9SI OH-DOLO 1 1 
SOH-SICNIYHL ( J1«F,S0H) 

L I  81 *79 

t  RESULTANT  STRESS 

*0  SHI  I J I *PML I J 1 FSOH  t  RH.SHLI JI-.3*CF*CS*OUHM*IOH*OOlO) 

90  IF  I  NSC PRAT  . GE.  01  GO  TO  100 

IP  I (AH  .LT,  0.1  .AMO.  IF  .£0.  0.1)  95,100 
95  RH*PMLU»-SHLt  J)»$DH»0. 

100  IF  (LSU8I31  NAXPRIJIt  GO  TO  120 

L$L*IS)«LSU8I1I»T 

MR  I TE  (18.50001  J.N.EU, OH, PHL I Jl. SOH. Il 1 11,1 »l, 81 
1#  i  TE  118, 3(301 1  CHL(J1,CS,CEP.C0T,CIT,RH 
120  RETURN 

ISO  FORMAT  t*OH  STOP  IN  HAFSTEP,  N»t4,4H,  J*I4,4H,  tSElll.S, 

1  7m,  7TMf.ElO.31 

9000  FORMAT  I1SM  HAFSTEP,  3*13. 4M,  N-14.4H  EH-ET0.3,4M  0H-E10.3, 

S  4H  PM«£iO.»,5H  S OH. f 10.3.3*  L*8I3I 
500t  FORMAT  I6H  C'EIO.T.SH,  C5*£ 10. 3 ,6H,  CEF*E 10.3 ,6H ,  COT-EIO,3, 

\  6H.  C  IT*E  10.3 ,9H,  RH-E10.3) 

EMO 
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SUBROUTINE  HVORO 
C 

C  SUBMOUIINF  CONTROLS  THE  MIN  CALCLLATICN  CYCLE 
C  *  CONTAINS  4  PATHS  - 

C  1.  NORMAL  -  COORDINATES  hllKlN  MATERIAL 

C  2.  INTERFACE  -  INTERFACE  EETNEEN  MATERIALS 

C  3.  INTERFACE  SPALL  -  SEPARATED  INTERFACE  EETWEEN  MATERIALS 

C  4,  SPALL  -  COORDINATE  AT  WHICH  SEPARATION  HAS  OCCLRRED 

C  *  CALLS  HAFSIEP  FOR  HALFSTEP  CALCLLAT1CNS  AT  EACH  CCCRCINATE 

C  *  CALCULATES  X.  Ut  0.  E,  ANC  CALLS  JSTRESS  TO  OETAIN  STRESSES 

C  ♦  CHECKS  FOR  SPALLING  AND  RECOMS (NAT ICN 

C  •  COMPUTES  MINIMUM  PERMITTEE  TIME  STEP  FCR  NEXT  CYCLE 

C 

C  •  SET  OOLO «EOLO  ,OU«P <  J ) « S ( J  I  IN  FREPARATICN  FCR  JSTRESS. 

REAL  MAIL, MU, PUM.MUP, NEM.NET 
INTECER  H, POROUS  »R  INTER.  SOLID.  SPAU 
INTEGER  HJ.HJ3 

C  MISCELLANEOUS 

COMMON  CEF,CK$,OAVG,CSLTINfCClC,CPMC,CTMIN,CTN,CTNH,OUrCX,EClD,F, 

1  FIRST.J.JCVCS.JINIT.JFIN.JSMAX.JSTAR,  JTS ,LSL3 (II ) .MAXPRI 1 1 1 ,N, 

2  NCVC2 .NPEAN.FCLO .RLAST , SI AST ,SMAX,Tf ,T IME ,  1 J ,TS .ULAST.UOLC , 

3  XLAST.XNCW.XCLC 

C  EOLATION  OF  STATE  -  SCLIO 

COMMON  C0$G(6,6),Clt6»6>,C2t6),EMEim,!>,ECSTAI6),EQSlCt6), 

1  EGST0I6)  .EOSTEU  I.ECSTGI4  i.ECSTHI*  >  .ECSTM6  >  .ECSTS  (6)  .NATL  (2, 61  , 

2  MU6I.KH0I6I.RHCSI6)  , TENSI6, 3 > , YACC (A > , VC  IE I.JBND (A > ,NPCR 16,2  A , 

3  M.MUM.NMTRLS 

C  EQUATION  CF  STATE  -  FCRCUS 

COMMON  AK<  6),  NUP(  A  I.POAAM,  3 )  ,P0R6(4, 3  I.PCRC  (4,3  I.RHGPI6.3), 

1  YACCP(4,3J,0REF,PHCFV,Pf »NC 
C  RAC  TAT ICN  EEFOS IT  ION 

COMMON  SS( 3CC , S) , $S  TOP  I 5  > .STAR  I ( 5 i tSCURM ■SSTCPM, NSFECtSSJiJSS 
C  CCCRCINATE  ARRAYS 

COMMON  XI  300  )  ,C  C  3CC  )  .CHU3CC  1 .0  I3CC  >  ,SML  (300 1  ,EHL  I300J  ,HI  3CC,  3)  , 

1  N6MI300I  .NETI3CC)  .FMOCI.FHLI  ’CCScHf  3CC),SI3C0>  .!►  '300,11300, 

2  U I  300  ,UHL  1  3CC I ,  YHl  I  3CC  )  .  ZHl  1  3CC  ) 

c  halfstep  values 

COHMCN  CM, OHL AST, CUH, EM, PM, RH.RHt AS?, 5HtSHLAST,UH,UHLAST,XH,XHL AST 
C  IDEM  If  IFRS 

CCPMCN  OISCPTI  10I,ICENT,JEOUI<C),JRETCNUSI,NDATEI3).NFDIT,NEOTM, 

1  NJEOIT,NR.NREICN,NSEPRAT,NSPALl,NTEOT,NTEX,NTR(  15),  TECH  (50) 

C  CCNCIMCIN  INC  ICAICRS 

COMMON  INF.  i.  INTER. MIRROR,  .aRMAL,  FORCES, RIMER,  SOLID,  SP'1  •. 

C  SPALL  ANC  RELAXATION 

COMMON  NSRI4t,ISRIA,4l,USPI5C)  ,  XSF  (5C  ),l  RLX  ,NICM  ,  NEHH.NETH 
C 

CIMt  NSFCN  II  IQ) 

C 

C 

CALL  SECOND! XNOW )  *  OUR* XNOW-F IR S T  I  D?*OTPIN*l. 

SMAX-O. 

C 

C  OUTER  HYORC  LOOR 

DC  1C0C  NN*L ,NCYCS 
TIME«TIME*CTNH 

JSPALL  -0 

M»MP*0 

CO  ROC  J-JP  1 1  i  JF  1* 

IF  USlBUI  .GE.  MAXF R I l) )  CC  TC  3 
10  WRITE  I  IS. 5000)  N.J.MJ.i) 

1  CO  3  1*1,10 

2  L«n*e 

C  CHECK  FCR  THE  APPRCPR1ATE  PATH 

3  XOLD'XU)  A  LCIC*U  I  J)  t  RCLC»P(J) 

IF  tr( J,2I  .EC.  NORMAL)  GO  TO  ICC 

IF  IMIJ,2I  .EC.  LIFTER)  GC  TC  SCO 

IF  IHIJ.2I  .EC.  R  INTER )  (0  TO  <CC 

IF  IHIJ.2)  .EO.  SPALL  )  GO  TO  3C0 

IF  IHIJ.2I  .EC.  MIRROR)  500, 40C 
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j-pinn 


**••  NORMA!.  RATH  WITHIN  A  MATERIAL  *»« 

IF  (NSPEC  .  GT.  0  .OR.  A8SI U< J I -U( J«l > )  .GT.  I.M  .OR. 

1  ABSIRHLA ST }  .GT.  l.i  GO  TO  102 

101  UH-UIJ)  S  RH"XIJI  S  XH«.5*IXIJ41I*X( J)*OTNH*UI J>) 

iu#«iei 

QH-DHLSJI  *  EH»ffHL(JI 
UNEWUIJI 

XUI*X(J)  +  OTNH*U(  Jl  »  SSJ*SSCAL(J)  A  GO  TO  800 

102  CALL  KAFSTEP 
LI  1 1-102 

ML0«.3*IDH»DHLAST)  t  EOLD« .  5*  !EM»EHLA  ST  ) 

PIJJ».S*IPHU JI+PHLI J-ll I  S  YJ«. 5*1 VHL I J) *YHL I J-l ) ) 

SI JI».5*<SHL(JJ»SHL( J-1I) 

£  VELOCITY  CALCULATION 

Ul  J )»UOLO-2 . *OTNH*l RH-RHLAST) / 1 2HL I J- 1 ) ♦ IHL I  J > ) 

C  COORDINATE  CALCULATION 

XI J  l»Xi  J  )*.S*GTNH*{  Ul  JOUOLD! 

C  DENSITY  CALCULATION 

D*  J!-00LD/(1.4.3*DTNH*tUt  J»1 I-ULASTI /! XI JM1-XLAST)  ) 

C  ENERGY  CALCULATION 

103  SSJl-SSCALt  Jl 

EJ«E0L0“.5*IRH*RHLAST 1*1 l./OI J !-l./OOLDl*SSJ*SSJl 
SSJ-SSJl 

C  STRESS  CALCULATIONS 

DU>UH-UHLA$T  *  NJ»S0L1D 

IF  MHiJ-1,1)  .EG.  POROUS!  .OR.  IHIJ.l)  .EQ.  POROUS ) )  HJ-PORUUS 
HJ3-2 

IF  INSRIMI  .EQ.  0)  GO  TO  136 

IF  I ABSISI J l-PI J 1 1  .GT.YJI  HJ?«2-IFIXt SIGN) I..SI JI-PI J! ) I 
NSRM»NSRIM)  3  GO  TO  I  1 06, 10A, 10A. 106 ,1 05  I  NSRM 

104  NEMH».S*INEMS J J»NEMI J-l ) )  t  NETH- . 5* ( NET! J) +NETI J- 1 ) >  SCO  TO  106 
103  ll»MIN0(HM,3>,HIJ-l,3ll  S  IH-MAXOIHI J  ,3 )  ,H(J-1  ,3  ) ) 

IF  III IH-I L-l )*l IH-I L-5 I .EO.O ) . ANO. IHJ3. EQ. 2! I  IL«IM 
HJ3«IL 

106  CALL  JSTRESSIN«MP, J«EJ,HJ,HJ3»YJI 

UMLIJ-1  )*.025'MIJI  J)*UNEW>UOLD«ULASTH-,0*UMLAST 
UTEW-UIJI 

OT*  IX I  J»1 )  »UI  J»l  l*!)TNH-XI  J  1  l/CEF 
IFIDT.LT. 0.01  OT-l.O 

c 

C  CHECK  STRESS  ANO  SET  INDICATORS  FOR  SPALL 

108  IF  IRIJI  .GT.  TJ1  GO  TO  800 

IF  I INSEPRAT  .  GE  .  01  .OR.  IF  .GT.  0.1)  GO  TO  110 
Rl J)*SIJ)-P|J)*0.  t  GO  TO  800 

110  JFINM-JFIN-1 
LI  21-110 

IF  INSPALL  .EQ.  01  114,111 

111  00  113  I”1 .NSPALL 
DO  112  JJM.JfINNI 

IF  IHUJ.2!  .EQ.  I)  113,112 

112  CONTINUE  S  NSP-H(J,2I*I  S  GO  TO  U3 

113  CONTINUE 

114  HSP-NSPAU-Ht  J,2I>NSPALLM 

US  XSP1NSPI«XI  J)  S  USPINSP)*UIJI 

IF  ILSUBIR)  .GE.  MAXPRI9) I  GO  TO  120 
DESC-10H  SPALLEO 

WAITE  1 10*5115)  PE  SC ,N,NN, J.NSPALL ,NSP,RI JI»TJ*TIHE 

WRITE  (10,5050)  OT  ,RUI  ,  SI  J  I  ,C<  J I  ,0(  J  I  ,  T  U  )  ,U(  J  I  ,UH,DH,EH  ,PHL  I  J) , 

1  RH.XH.1LI 11,1*1,3) 

WRITE  118,3051)  OTMIN,OTNH,U(J*l),XtJ»l),XIJ),C£F 
120  JSPAll  ’ J 

Rl J)*SIJI»TIJ!-0. 


GO  TO  800 
C 

C ••***•*•*  INTERFACE 

C 

C  LEFT  VALUES  ARE  IN  IJ-1 1  CELLS  ANO  RIGHT  VALUES  ARE  IJ)  CELLS 
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200 


C 

20  i 


209 

2 10 

C 

C 


C 

C 


5 

C 

213 

215 

216 

217 
C 

218 


C 

219 


C 

220 

222 


22* 

522* 

226 

C 

C 

225 


MLAST*N  5  NPLAS7*NP  *  N*N»l  t  NP»  NP0RIN,2I 
U 1 } *200 
CALL  HAFSTEP 
SSJ*SSCAL( J) 

FIRST  ESTIMATE  OF  UN,  HALF  STEP  VELOCITY  AT  INTERFACE 
Jl«J-l  *  J2-J-2 

UH'.5*(U(  Ji)*UIJl  8  )-0TNH*?R  I  J*1 ) -RL AST  ♦*• *( RH-RHL AST  i  I  / 
l  <2HL(  JI*THl(  J2I  1/6. 

SSJ1-SSCAI.I  Jll 

IF  ILSUBUOl  .<SE.  NAXPRUOI)  GO  TO  209 
LSUSI  10)»LSUB(  10*1 

WRITE  (13.5002)  N.NLAST, M,UN,U( J) ,OH,UHLAST,RH,RHLAST,RLAST.RI Jl ) » 
1  R( J ) , R( J* l ) 

I T£R*0 
ITER*1TER»1 

S(J)*SHL(JI  »  P(J)*PHL(J)  t  SI  J1 )  *  SHLIJ2)  t  P(  Jl )  *PHL !  J2) 

RIGHT  SIDE  ENERGY  AND  STRESS  CALCULATIONS 
0U*2.»(UH-UN) 

OOLD-OH  t  EOL0=EH 

0« JI*DH/(1 .♦DTNH  (UH-UNI/IXI J*l)-X( Jl) ) 

EJ*EOLD*RH«( l./bJLD-l,/0( J) i*2.*SSJ 
NEMH*N£N(J)  »  NETH*NE  T  ( J I 

CALL  JSTRESS(N,MP,J,EJ,H( J, 1 1 ,Hf J, 31 , YHL I J ) I 

LEFT  SIDE  ENERGY  ANO  STRESS  CALCULATIONS 
DU*  2#  * ( UN-UHL A  ST  1 
DOLO*DHLAST  %  EOLO=EHL  AST 

0( J-ll*DHLAST/( 1.*0TNH»(UN-UHLASTI/(XI J-ll-XLASTS I 
EJ*EOLD*RHLAST*(  l./DOLD-l./DI  J- 1)  I +2.*SSJ  1 
NENK*NEN(J2i  %  NETH*NE  TI  J2 ) 

CALL  JSTR£SS(NLAST,HPLAST,J1,EJ.H(  J  2,  1 ) ,  HI  J2,  3 )  ,  YHL  1 J2  )! 

IF  (LSUBIIG)  .GE.  NAXPRIIOII  GO  TO  211 

WRITE  (18,50031  I  TER, UN. UNI ,UN2,UN3,R( J) ,R( Jll ,R Jl ,RJ1 1 , RJ2.RJ12, 

1  S(J).S'Jl) 

CONTINUE 

ITERATION  TO  COMPUTE  INTERFACE  VELOCITY  ANO  STRESS 
IF  (ITER  ,  Gf  .  101  226,213 
R$*A8S ( R ( 3 1 > »A8$( Rl Jl) ) 

IF  IRS  ,LT.  I, Eft)  225,215 

IF  (ABS(R(  JI-RIJl  I  l/RS  ,GT.  .01)  216,225 

IF  (ITER-21  220,219,217 

IF  IABS(RJ2-R,'Sii  .IT.  ABS (R  J1-RJ1 1 ) )  218,219 
MULTIPLE  ITERATION  ROUTE 

UK3*UN2*(UN-UN2>*tAJl2-RJ2)/(R<  JI-RJ2-RI  JU*RJI2) 

UNI *UM 

UC  ON* ANAX 1 ( . 2* ( ABS (UH) +ABS (UHLAST )*ABS<UNl) ) AFLOAT ( ITER**2I , 100. ) 
UM»UM3 * AMAX 1 1 UM1-UC0N, AN t N 1 ( UN 3 , UN  1 FUCON I ) 

RJ  l  *RI  J  1  1  RJU-RUll  S  GO  TO  210 

2 NO  ANO  MULTIPLE  ITERATION  ROUTE 
UH3*UNI*(UM-UM1I*IRJ11-AJ1  )/(R  ( J)  -R  Jl-A  (  Jl  )  *RJ1 1  I 
UN2.UM 

UCON'AHAXM  .2*(ABS(UH)  *A8S (UHL AST ) *ABS( UN2  )  )*FtOAT(  ITE«»*2) ,  100.  > 
UN*UM3* ANAX 1 1 UM2-UCQN, AMIN  1 ( UN  3, UN2*UC ON) ) 

RJ2*R( J  )  t  A JI2 >R ( Jl )  1  GO  TO  210 
FIRST  ITERATION  ROUTE 

UNI  ■  UN 

IF  UUN-UH)*IUHLAST-UN)  .EC,  0.)  225,222 
UM*UM-1R,(  J)-R(  Jl)  )/(0(  JI«C(JI*0(J1  )*C(  Jll) 

UN»AMAX1IANIN1(UN,1.10*ANAX1(UH,UHIAST| )  ,0,90‘ANINHUH, UHLAST)  I 
R J 1 1*R ( J 1 )  t  RJ) *R( j)  A  UN2 *UN  »  GO  TO  210 
WRITE  (IS, 522*)  N.NIAST.N 

FORMAT  1 **H  'NTERFACE  ITERATIONS  010  NUT  CONVERGE  AT  N* !*, 

1  l!H  BETWEEN  N*I2,TH  ANO  N«UI 

WRITE  118,5003)  I  TER, UN, UNI ,UN2,UN 3,R ( J) ,R( Jl I ,R At , RJ1 1 ,RJ2 ,RJI2 , 

1  SIJI.SIJll 

ENG  OF  INTERFACE  ITERATION 
COORDINATE  CALCULATION 

U(  J) -IT  Jll  *1)010-2.  •DTNH*(RH-RHLASTI/|2HLlJ2)*2HI  I  J)  ) 


SUBROUTINE  HYDRO  (continuad) 


233 


if  i n*nn  .eq.  li  ui ji»u< ji >«um 

XI  Jl-Xl  Jll-XIJI*.S»DTNH»IUI  JUUOLOI 
OT*IX( J+IU1JI J»ll»DTNH-x; j >>/cef 
IFIDT.LT.O.OI  0T-1.0 
C  EQUALIZE  THE  STRESSES 

RIJ1)»RIJ)*.S*IR(J1)*RIJ)) 

UHHJ2>-.025*IUtJl)*UNEW*U0L0«-ULASTl  ♦  .9*UHLAST 
UNEM-UI JI 
C 

C  CHECK  STRESS  AND  SET  INDICATORS  FOR  SPALL 

IF  IRIJl)  .LT.  TIJ1II  230,800 
230  HI J, 21 “SPALL 
L 1 2 1*230 

IF  ILSUSI9I  ,GE.  MAX PR 1 9 1 1  GO  TO  23S 
0ESC-10H  INT  SPALL 

MRITE  118,5230)  DESC ,N,NN,NL AS T ,M ,RIJ i ) , T IJ1 I ,TI NE 
CALI  EOOUNP 

233  R( JI-RI  JU-SI  J)  *SI  Jll-TI  J1  )*0. 

GO  TO  800 
C 

C **••**••*  INTERFACE  SPALL 
C 

300  IF  (J  ,EQ.  JINIT!  330,310 

310  MLAST-M  $  MPLAST-MP 

LllI-310 

C  LEFT  SIDE 

Jl-J-l  t  SSJ1-SSCALIJ1) 

XLOLD-XIJ-1)  t  ULOLO-UI  J- 1 1 
01 J-l )*UL0L0*2.*DTNH»RHLAST/ZHLt J-2I 
01 J- 1 ) -DHL  AST/ 1 1 .»OTNH*l ,5*IUI J-l ) *UL OLD  I -UHL AST l/IXIJ-ll-XLASTl) 
XI  J-1)*XL0L0*.5»0TNH«IU<  J-1UUL0LD! 

OT-1. 

IMLI  J-2I«.23*IUI  J-l  )*UNEN*ULOLD*ULASn 
IF  IJ  .fcQ.  JFIN)  900,330 
C  RIGHT  SIDE 

330  M-M-l 

MP-NP0RIN.2) 

1121-330 

IF  IA8SIUI  J)-UI  JMII  .LT.  l.E-3  .AND.  NSPEC  .EQ.  0)  331,332 

331  UH-UIJ)  *  RH-RIJ)  t  XH-.5»!X(J*l)*X(J)*DTNH»UI.')> 

XI J)-X(JI«OTNH*U(JI  A  OT-1.  8  SSJ- SSCAL I J ) 

OH-D>  _|JI 

IF  <J  .EQ.  JINIT)  800,333 

332  CALL  HAFSTEP 

SSJ  -  SSCAL  I  J)  I  UOLD-UI  J)  $  XOLD-XIJ) 

01 JI-UOLO-2.*OTNH*RH/2HLI J) 

Dl J l-DH/l 1 . *OTNH* I 0H-. 5»IU I J ) *00L0 ll/(X(J*l)-XIJ)l) 

XI  JI-X0L0*.5»0TNH»(UI  JUU0LD1 
OT-1  XI  J»1)*OIJM)*OTNH-C(J  II/CEF 
IF  IOT  .LT.  0.)  OT-1. 

UNEM-UIJI 

C  CHECK  FOR  RECOMBINATION 

IF  |J  ,E0.  JINIT)  GO  TO  800 

333  IF  IXIJI  .LE.  XIJ-11)  361,800 

361  IF  ILS0BI9)  .GE.  NAXPRI9I)  GO  TO  365 
OESC-IOHINT  RECOMB 

MRITE  118,32301  DESC .N.NN.ML AST.M.RI J- l I , T I J-l ) , Tl ME 
C  RESET  ARRAY  VARIABLES  AND  GO  TO  INTERFACE  ROUTE 

363  HI  J  ,2 1  -RINTER  8  XIJi-XOLD  »  XIJ-D-XLOLO  I  OIJI-OOLO 
01  J-l  I  -OLOLO  I  GO  TO  205 
C 

(••••••••*  SPALL  MITHIN  A  MATERIAL 

C 

C  LEFT  VALUES  ARE  IN  J-CELLS  ANO  RIGHT  VALUES  ARE  IN  XSP  ANO  USP 

C 

400  NSP-HI J,2)  8  XOLO-XSPINSP)  8  OOLO- USPI NSPI 

ULOLO-'Jl J)  8  TIJI-O.  8  RlJI-O.  8  DX-X,  'MI-XOLO 
LI  II  *400 
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c  IMS  calculations 

Ul  J I  -ULOLO  *2  .  *otw*ahl  AST/ZHL  (  J-ll 

01 J)*0HLAST/I1.PDTNN*I.5P<UI  J  l  ♦ULOlDI-UHtASl  )  / I  X I JI-XLAST I  ) 

XI JI-XIJI*.5*OTNH*IU<  JDULOLDI 
C  AHS  CALCULATIONS 

OOLD-OHLIJI  A  EOLO-EHL,J> 

XH-.5MXI J*1 I*XOLD)*.23«OTNH»IUI J*l)*UOLO) 

UM-.5*IU<  J*l)»UOLD)  .5*OTNH»R|  J* 1 1  /  < OOLO-OX I 
DHL  I  J!*DH»ZMLI  Jl/ I0X*.5*0TNH*(UI  J*l)-UOLDI  I 
EHLIJI-EH-EOlO-.SP|RU*l)*AIJ»  1*1  l./OH-l./DOLODSSCALHI  Jl 
C  ERE PARATIO?'  FOR  HSTRESS  IN  SFALL 

CALL  HSTRESS 

USRINSF)»UOLO"2.*nTNH*RH/ZHLI Jl 
XSPINSP)-XOLO».5*OTNH*IUSPINSPI*UOLD) 

01  JI-.5*<0H*0Hl  ,Tt 

OT-IXt J*1 >*U<  J*D*OTNH-XSPINSP|l/CEF 

IF  (0T  .IT.  0.1  DT-1. 

UHL  U~l  I  -.25*IUI Jl  *UNEH*UOLO»UL  ASTI 
UNEM-USPINSP) 

C  CHECK  FOR  RECOKBINATION  AND  RESET  QUANTITIES  AT  J 

IF  IXSPINSF)  .LE.XtJD  410.800 
410  HU.  2 1 -NORMAL 
LI2I-410 

X(JI». 5*1X1 JDXSPINSPII 
U(  JI-.5»(UU)*USPINSPI) 

01  JI-.5*IZHLU-tl/(XIJI-XI  J-ll  l»2HLU)/IXU»tl*0TNH*UI  J*l  I-XIJIII 
IF  ( NSP  .EQ.  NSPALL)  NSPALL-NSPALL-1 
IF  ILSU8I9)  .GE.  NAXPRI9M  GO  TO  420 
OESC-IOHRECOMBINEO 

NRITE  1 18.51 151  OESC .N.NN. J ,NSP ALL .NSP.R IJ I , T J.TINE 
WRITE  118,30501  OT ,R I J I . S ‘ J I ,C ( J I ,0 ( J I . T I J ' . U( J I , UH.OM, EH, PHLI J) , 
I  RH,XH  '<  (It, 1-1,51 

WRITE  118,50311  0TNIN,0TNH,UI J*1 1 ,  XI  J*1 1 ,X|J  t.CEF 
C  RETURN  TO  NORMAL  PATH  FOR  STRESS  CALCULATIONS 

420  PIJ'-SIJI-O.  A  OOLD-.34|OH*OHLAST>  t  E0L0-.3*IEH«CHLAST  I 
rj-.5*IWLI  JI*TMUJ-1I> 

IF  10. 1-0T  .GT.  0TMIN1  GO  TO  101 
0TM1N-0. 5*DT  I  JTS-J  »  GO  TO  101 

•»»*****•  MIRROR  AT  FRONT  SURFACE 

300  t^M*  l  A  MP-NPQRI M,  21 
LID-500 
CALL  HAFSTEP 

OCLO-OH  A  EOLO-EH  A  0t>2.«  I UM-UI J M 
OU  )  -0010/ 1 1  .♦OTNM»  IUH-UIJI  l/IXIJ-ll-XIJII  I 
SSJ-SSCAL (J! 

EJ-EOLO-RH4)  l./OOLO-l  ./Ol  Jl  l*2.«SSJ 
SUI-SHLUI  A  PI  J I  -PHL  I J  I 
NEMH-NCMUI  A  NETH-NE  T I J  ! 

CALL  JSTRESSIN.MP,  J.EJ.HI  J,  1 1  ,  H(J  ,  II  ,  *HL  I J  1 1 
Rl JI-2.-RI JI-SC J) 

XI JI-XI JI*OTNH«UI J) 

OT-IXI  J»1I*0TNH«UI  J*D-XI  JII/CEF 
IMEW-UtJI 

IF  IRIJI  .CT.  TUFIN-m  r-0  TO  AOO 
HU, 21-SPALL 
Ll 21*550 

OESC  -  10H  MIR  SPALL 

WRITE  118,32101  OESC.N, NN, M.M, RIJ t , TtJF IN- I ) , TIME 
PI  JI-RUI-SI  JI-l  lJFIN-ll-0. 

C 

C*«*»*P«»*  END  OF  MIRROR  PATH 

C 

800  CONTINUE 
1141-800 

C**«*»*  CNO  OF  CTClE  RESET 

■.AST-XOLO  A  ULAST-UOLO  A  RLAST-ROLO 
XKLAST-XH  A  UHLAST-UH  A  RHLAST-RH  A  9HLAST-0H 
EHLAST-EH  J  SHLAST-SH 
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c  SNAX  CA4.CUi.AriOM 

IF  ISU)  .ST.  SNAXI  (20, >27 

(20  SNAX-SIJI  *  JSNAX-J 
C 

C  TINE  ST2P  CALCULATION 

(22  IF  IDT  .IT.  0TN1NI  (24,(2* 

(24  DTNIN-OT  t  JtS*  J 

(2'  OTP-DT 

if  (lsuoiii  ,ge •  Mxnim  eo  to  (io  - 

WAITE  (1(,9090)  OT,A<JI,SIJ'.CUI.OIJI.TIJ),UUI,UH,OH,EH,PHLIJ>, 

1  AH, XH, 11(11, 1-1,9) 

WAITE  <l(. 90911  OTNIN,OTNH,UIJM).XIJ*l),XlJ),CEF 

LSUidl-LSUOIll-l  - 

C 

C  JSTAA  CALCULAT ION 

(90  IF  (A(SIUIJ)I  .IT.  l.E-ll  (91,900 
(91  IF  (J  .CT.  JSTAAI  (92,400 
(92  JSTAA-J-l 
GO  TO  990 

C  END  OF  HVOAO  INNEA  LOOP 

900  CONTINUE 

JSTAA-JFlN-l 
990  OTN-OTW* 

IF  I JSP ALL  *NSE  PAAT  .11.  01  GO  TO  1000 
JINIT- JSPALL  1  HIJIN IT. 21-SPALL 
C  ENO  OF  HVOAO  OUTEA  LOOP 

1000  CONTINUE 

IF  (LSUdd  .LT.  NATPAI  ( I  I  1001,1002 

1001  CALL  SECONOITWIXI  (  OUA-TWl  X-XNOW  - 

MUTE  (10,90101  N.OUA  . 

LSUOI  Ai-lSOd  A) » 1  - . - 

1002  Af  TUAN 

9000  FOANATI  UHOHVOAO  (EGIN.  N-I4.1H  J-I4,(M  HU. 21-All  . 

9002  FOANAT  I2IH  HVOAO,  INTEAFACE,  N-I9.4H,  H-I2.9K  AND  12. 9H,  UN- 

1  E10.V  9N  UUI-E10.1.4H  UH-2EI0.1.4H  AH-2E10.1, 

2  4H,  A-4C10.3  /12AM 

Z  ITEA  UN  UNI  UM2  UN)  AUI  AU-ll 

4  AJl  AJU  9J2  AJ12  SOI  S«  J*  l  >  I 

900)  FOANAT  (14, 12E10.il 

900*  FOANAT  (1(H - (NT  SPALL  UN-  2EI0.1.4H  QU-2E10.1.4H  CN-2EI0.1,  - 

1  4H  AM-2EI0.1./14X,)H  X-2CI0.),)H  U-2E10.1.1M  E-2E10.1I  - 

9010  FOANATI 22H  HVOAO  CONPLETE - -N-14.22M.  CALCULATION  TINE  IS  FlO.l, . 

1  4H  SECONDS. //I  . 

9119  FOANAT  I 1H  .A10.TH  N,  NN-2I4.4H,  j-!4,*H,  NSP-2I),TH,  A,  T-2E10.1, 

1  IN,  T|IC-(ia.)l 

9210  FOANAT  I1H  ,4(0, TM  N,  NN-2I4.4H,  H-2I1.TH,  A,  T-2E10.1.TM,  TINE-, 
l  E10.lt 

9090  FOANAT  1 10H  MVOOO  OT-flO.l.lH  R-EIO.),)H  S-EI0.1.1H  C-E10.1,  . 

1  1M  D-E10. 1,  )M  T-E  10. 1 ,  IN  U-f  10.1/  »X,4H  UH-EI0.1.4H  DH-ElO.l,  - 

2  4N  EH-(10.),4H  PH-(I0.),4N  AH-E 10.  ),4M  lH-flO.),4M,  1-914 

9091  FQANAT  1 10H  OWt  10.  1.9H,  UIJ-l  l-E  10.1, AN,  X»S-2E10.1. 

1  AM,  CEF-(10.)I 

•NO 
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SUBROUTINE  JSTRESSINJ.NPJ,  JJ.E  J.HJ.MJ3, YJI 

CALL  CO  SV  HYDRO  TO  COMPOTE  A,  S.  P,  AMO  TO  SET  T 

•  CALLS  EOST,  POREQST,  AND  FNELT 

•  TERMINATES  THE  Pr  QAM  FOR  A  NEGATIVE  DENSITY 

REAL  NATL, MU, MUM, NUP.Ni  .ET.NEOM 
INTEGER  H,  POROUS,  R  INTER,  SOUO,  SPALL 
INTEGER  HJ.HJ  J 

MISCELLANEOUS 

COMMON  CEF,CKS.OAVG,OeLT!N,OOlD,DAMO,DTNIN,OTN.DTMM,DU,OX,EOlO,F, 

1  F  IRSTt  J,  JCYCS.JINIT.  JF  IN,  JSNAX,  JSTAR.  JTS.LSUSIll)  .MAXPRIll  I.N, 

2  NCYCS.NPERM.POLO.AIAST,  SLAST , SNAX , TF , T INE . T J ,TS. ULAS T ,UOLO, 

3  XLAST  .XNOW.XOLO 

EQUATION  OF  STATE  -  SOLID 

COMMON  C0SQtA,6l,UtA,6I.C2i£l,EN£LTIA,SI,EQSTAIAI  ,  EQSICIAI, 

1  EQSTOUI  .E0STEt6l,EQSTCtAI.EQSTM(AI,£QSTN(6),EQSTSI61.NATM2,*l, 

2  NUI6I.RH0I6I .RHOSIA) ,TENSt»,I>.YADOI A I ,YOI 41 .JRN0I4I .NPOAI6.21 , 

J  M.MUM.NMTRLS 

EQUATION  OF  STATE  -  POROUS 

COMMON  AKIAI.NUFI6I  .PORAI  A,  1 ) ,  PCMRI  A.  31 ,  PORC  I  A,  31  .RHOP  ( A,  3  I . 

1  YAODPl  A,  31  .OREF  .RMOPV.NP.NC 
RADIATION  DEPOSITION 

COMMON  SSI  300,  SI  .SSTOPI  SI ,  START  I 5)  , SOURN, SSTOPM.NSPEC.  SS J,  JSS 
COORDINATE  ARRAYS 

COMMON  Xl300),CI300l,CHLI300),DI  300!  iOMLISOOI.ENLI  300I.HI  300,31, 

1  ME  Ml  300)  .NET  (  300 1  ,P  I  3001  *  *HL  I  300  ),R(300l,St300),SlA.i 3001 ,  T  1 3001  • 

2  U I  300 1 ,UMl I  300 1 , YNl (300 1 , IHI I  300 1 

HALFSTEP  VALUES 

COMMON  OH,OHIAST,OUM,EN(PM,AH,AHLAST,SM,S»CAST,UH,U«.AST.XH,  xhlast 
(DENT IFIERS 

COMMON  01SCPTI 10) ,  IOENT,  JED!  T I  20 1 ,  J*E  2  ONI  IS  I  ,  NOATE I  3) ,  NED  I  T.NEDTM, 
l  N  JED  I  T, NR,  WE  ION. NSE PRAT  .NSPALl  ,NTEQT,NTEX,NTR  US) ,  IE 01  T  1*0) 
CONDITION  INDICATORS 

COMMON  INF  .IINTER.  MIRROR,  NORMAL,  POROUS,  RINTER,  SOI  10, SPALL 
SPALL  AND  RELAXATION 

COMMON  NSAIA)  .TSRIA.A)  .USPI30I  ,XSP  130).  LRLX,  NICK,  MEWI.NETN 

DIMENSION  Lt  10) 

DO  1  1*1.10 
1111*0 
CC*U.O 

IF  IOIJJII  20.20.2S 
PRINT  HO, N.JJ.JIJJ), TINE 

CALL  COOUMP  A  LSURI ?)* I  t  N-N-I  I  CALL  SCRIRE  A  STOP 
SOJ*SI JJI-P! J2I 

F  *1  MELT  IE  J.MJ  )  A  TF-I.,EJ*EQSTAINJI  3  DREF*DUJ)*TF 
ESTAU  ISM  ROUTE 
IF  INj  .EO.  SOlIOl  SO, 30 
IF  IF  .GT.  0.1  GO  TO  AD 

UNCONSOLIDATED  REGION 
WM*0.  A  CALL  EQSME2,0U2),P|  JJI.NJ.CC) 

1(21*32 

IF  IPIJJI  .LT.  0.)  IT. SI 
P(JJ)*SIJ2I*RIJJ1*0.  A  GO  TO  RS 
SELECT  POROUS  REGION 

RmOPV*FR(RMDPIS  .MPJI-RMOSIMJl  I  ♦  RmOSIMJI/TE 
III  t«AO 

IE  I0UJ1  .GT.  RM0PV1  SO.Al 

NC»0 

ML  *MC  •  l 

IE  (DREE  .GT.  AMOPIMOl.NRi)  .AND.  NC  .LT.  MP0RtNJ,2)i  AS. AO 
PRESSURE.  SOAPED  SPEEO,  TENSILE  STRENGTH  IN  SQL  IQ 
MUM.MUIMJIEF  A  CALL  E  QS  T  I E  J  ,  01  J  J 1  .  P I  J  J )  .  M  J  ,  C  *  J  j  I  I 
HII-SO 

YADON*  Y  ADO INj)  A  NC*S  A  TJ.TIJJIRP 
IF  INPQRIMJ.nl  ST.ST.SA 
ORE  F •  AMAX 1 1 9AEF  , l«E I S , MP  j ) ) 

II A  ) *SA 

ifiorif-rmopia.meji iat.st.st 
C0T*C0MINJ,41  A  CLT*U(IU.A) 
l I S) *ST 
CO  TO  TO 


SUBROUTINE  JSTRESS 


C  PRESSURE  ANC  TENSILE  STAtNCTF  IN  PCPcLS 

40  CALL  PCAE0ST( EJ.CI JJ  1  ,P < jJ  1  ,P J  ,PPJ,C ( JJI 1 

uii-co 

YACCM-YAC0P(NC,PFJ1 

TJ-O. 

IF  (TIJJl  .M.  C.l  *5, *7 

*5  U-t  TEI»S(MJ,2»»ttERS(ll.<,l  l-TE  N$(PJ,2I  I « ICREF-PK  (PJH/ 
t  limCFI*  ,PF  Jl-f<MCIPJJ  ll«F 
1(71-45 

47  C0T-C0S<itM.I.1«Cl«(CQSa(MJ.NC»ll-CCSCIRJ.NC)l»ICREF  -FHOPtNC.NFJI  I 

i  /(R*CPIIiC»l,PP/>-RFCP(MC. MP.il  1 
CIT-CIIMJ.KC IMCUKJ.MC-l J-Cl (PJ.NC I  l*(CPEF  -PHCPINC. PFJ) I 
t  /  (A»CFiN'C»l  ,PPJI-**CF(MC  ,RPJ1  1 
1(41-47 

C  447  IF  I C ( 41  VISCC5ITY 

70  CO-4PINK  CU ,  0.  I 
1(11-70 

CJ-I0U*C0T-C1T»CI JJll*CU4(C(JJ)-CCL01/i. 

C  OE V  14 TOR  STRESS  CALCUlitlCN 

IF  IftSAlMJ)  -EC.  01  SC  TC  71 
CRHC-CIJ4I-CCIC  4  CAYC-ICI  JJMCtlC  1/2. 

SDO-SOJ  4  CCEf»Pi'P*0RHC/C4/C  4  PIC4-2.PAUP 
NSRM-NSRl  AJ)  4  CT..5-CTNF 
CO  TO  171,74,74,77,151  NSRP 

71  C4LL  AUA*<  SCJ.PJ1,  YJ,  SCO.OT,  T5R  (AJ  ,  1  >  ,CAFC  ,CCEF  ,  YAEOK.N,  JJ, 

I  TSaiRJ./l.TOIRJl.NSRRI 

SC  1C  SC 

74  C4LL  EANCH.M  SOJ , FJ 1 , YJ , 5OC.0 1 ,0 AMC  .CCEF  ,P£CA  .Y40CP  ,N  ,  JJ.  TSR(  PJ,  1 1 

1  ,lSRlRJ.2l.1SR(PJ,ll,TS»IRJ.4),tSRIPJ,51,7S»(NJ,»},MEM( JJ), 

2  fcttl JJl.NSRAl 
CO  10  fC 

79  C4U  94USCHI(FJl*SCO,SOj,tJ,YC(Rj  I ,  T4C0P  ,DRhC  ,CCEf,TSR(AJ,ll, 

1  lSa(AJ.2l,*0M.N, JJ.04VC,ISRIPJ,3I,ISRIPJ,4] I 
CC  7C  10 

74  SOJ-S02«2.R4U4*(0 (4J7*OClw 1/10(3/1* CCLCI 

IF  (A4SES0JI  .11.  YJFFJ  CO  TO  SC 


12/17 
12/1  ? 


S8J-SICNI AMIN1I A4Si SDJ1, I YJ«YA0GM*<4 ! (C I Jjl-OCLD) l*f ) .SO,! 

C  STRESS  C04PUIAII04 

44  S<JJI-P<JJI«S0J  4  PI JJl-SI JJ1-C I 

49  IF(C  SU4 (2 1  . CI.RAAPR  (211  ’-0  1C  >S 

4RI TE I 14,9000 1 AC , PJ.RFJ, CJ,SCJ,F.Tji(L( 1 1 , 1- 1, 1 C I 
1SU|(2I-ISU4(21«I 
*1  RETLRR 

9404  FORMAT!*  /STRESS  MC-4.il.*  AJ.4.U,*  A’.-*,!!,*  CJ-4.E1Q.1, 
I  •  SCJ*«.t  10.l,»  F-4,EU.1,»T J-4.EU  L-4.1CI1I 

lit  FORMAT  1 207*  STOP  !M  /STRESS,  M-14.4F.  J-14.4H,  0-E1C.1. 

1  7M,  tlME-tlO.ll 

CM 
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r*  r»  n  r» 


SORAOOTINE  FOREQSHE  J,OJ , PJ,F J , PF J ,CJ) 


COMPUTES  PRESSURE,  COCK  ARC  SPEAR  KCU I ,  ALC  SCURD  SPEED  TCP 

FORCES  PATERIAl 

RE  AC  MAIL, MU, MUR. PIP 
C  MlSCEllARECLS 

COMMON  CEF.CKS.CAVC.OELTIR.DOLO.ORHC  I M  A  ,C  TP  ,CT  AN  ,DU,  OX,  ECLO.F  . 

1  FIRST,  J.JC.VCS,  JIRiT.Jf  (A.  J$PA>,  JS^  rt.JTS.l  HE  1 1 II  »NA*PR  ( , 1 1 , A, 

2  ACYCS,NP£Mi,POLC,RLAST,SLA31,SPA>i1F,IIPE,T  j  ,T  S  .UlkST  ,UClC, 

3  ALAST.RNCk.XCLC 

C  ECLATICN  CP  STATE  -  SOI  ID 

COMMON  CCSCIt.t  J.CKA,'  ,C2I *1 .EPEIT (A. S » , ECSTAI t ), EOSTCIC >, 

1  ECSTOIAt.ECSTEI  1 1  ,L  „STC(  1 1,  EC  STt- ( «  >  .ECS1M6  l  ,t CST  SUl  ,RAU  (2  .At , 
i  MtUi  ,*>£(4)  ,AHCS(£  I, TEAS  (A,  3  I  .YACCIA  I  ,YO< 1  l»jeNC(tl,NPOA(E,2l, 

3  P.PUP.AMTRLS 

C  EOLATION  Of  STATE  -  PCACUS 

COMMON  RR(AI,NUPIA),PCRA(4.3).PCAfi(«,*),PCACI«,3),RK>P(A.il, 

I  YACCP(«.3l,OREF .RNOPV.MP.NC 
C 

CIPEASItk  U10> 

CO  i  1*1.3 
2  II!  1*0 

CC-0.0  12/ IT 

IF  (NC-RPOR<MJ,l||  12,20. AS 
12  P2*F*<PCRAI*C,PFJI*(  1. -AHOM INC, NPjl /CHEF  I'- 

1  I  PORE  INC  ,PP  J  I  ♦MONO  INC ,NF  J )  •  IPNCF  1  AC*  1  ,  APjl/C,'  EF-1.1 1 1 

FI  *PCRA12  ,PP  Jl 

un*:; 

6C  TO  30 

C  I  BEKS  ITT  LIES  IN  TFC  LAST  FORCES  RE5ICA  REFERS  SCLIC) 

20  CALL  ECSTIEj.RMCPV.FjClkT.PJ.CCl  12/11 

c  (simplify  egressions  anc  ccmflte  pressure  alcnc  the  curve i 

PAF*PQR«|NC,NP4lAf  t  0A*RNCF(A(,: FJI/TF 
FC*-4. •PORCINE, NFJ|o/*>OH/IRPOPV-CN!MRHCF%/OJ- 1.1 
P2*PAF*RHOP«/IRNOPV~ONmi.-OA/DJl*(P4ClAT-FPF«FCFI 
NC*R1A0INC,2>  t  FI-PORAINO.MFJ1 

LI  11*20 

C  C0PPL1E  ELL*  PRESSURE  ARC  SELECT  PIAINUN 

M  RAT  1C* A* INI I  1 . , AM Al III P2— P 1 1 /I FCRil 4  »RP  J 1— F 1 I.C.l 1 

ML'M*  INLPIM21 *  I  PL  lAjl-PUPIPJlIRAATI  Cf*F 
AULA- (CSICIMJ)-AA(nj I t*RAl H l*f 

PRULK*Fj*tL-L**t(02-0CL0l/I.S*l02*CaCll*ECSTAINJI»IEJ-cOLCn 
IF  IPRULK  .01.  F2t  CO  tc  AS 

IF  (IK  .Ed.  NPORIRJ.l  ;  PAUL  A*AP  AM  IPJC1RT*  II  .-IRHCFV-C41  /(RNCPV- 
I  RMOSIP.il/TF  It.PRLLAl 
LI 2I*A0 

fJ*WLU  (  CO  TC  SO 
4*  fJ-32 

U 21*43 

C  I»*C  SFIEC  CALCULATION 

A  CSw»(RL«L*'iUMl/l.*»IRJ*OClOll 

IF  (CSV  .**.  3.1  ST, AS 

ST  CC<<WXA<C4  t  C  JXWX4/C0».2SX<.  «J  12/IT 

UIM1 

•o  $msua(si.Cf.MAXPRisti  n  ms 

At  NRITF  '  IE. 110)  4.R.P  i.AFJ, < ,S  4,0/ rf 4, F/, FJ,PECLA, EUL*. *DF.C«EF. 

1  »»OPY WOLD, TF. tCiS.CSC.  .Mil,  t<*  1.31 
LSUAISXSURI31  t  i 
«  CONTI  A  4 

RETURN 

110  FORMAT  (UP  PONS4SI  4*1 3.3M  N*I«.3M  P*il2*AM  AC  *12. 4*  IMK.l, 

1  M  (/•kU.I.FM  (MII.I,R-  M*HI*.3.*P  N00*/E1C.1/S». 2*0*3110.1, 

2  A*  TPXIA.J.W  ECLAXlO.l  jSM  C  JC-tlO.l  .**•  1*3131 

Nt 


SUBROUTINE  KJRtQST  (axnptra} 


239 


SUBROUTINE  REZONf 


INCREASES  CELL  SIZES  IC  GIVE  MORE  UNIFORM  01  SIR  I  RUT  ION 
»  STARTS  RE  Z  ON  I  NO  AT  JRfZON  A, IT-  WORKS  THWART!  J1NIT 
♦  DOES  GOT  OISTURB  LOCATiilN  OE  INTERFACES,  JEOITS,  OR  SPALLS 

REAL  MATL,MU,MUM,MUP,NEH,NE 

Rc AL  NASS , NON, «A SLA SI.NOML AST,  M ASNEKT .NONNF.T 
INTEGER  H, POROUS, R INTER, SOL  ID, SPALL 
INTEGER  HC.HJ0LD2 

HI SCELLANEOUS 

COMMON  CEf  ,CKS,OAVG,OEL  T  IN ,  DOLO  ,ORHO,nIK.  i  ,()I  N.DTNH.OU,  0*  ,  EOLO.F , 

■  FIRST,  J.JCVCS,  JSnIT.JF  IN,  JSMAX, JST AR , JTS.LSUBI  1 1 1  .MAXPR  I  1  (  l ,  N, 

2  UC YC S, NPFRN, POLO, RLAST , SL AST, SHAX.TF , TIME,: j.TS.UL AST, UOLD, 

1  xlast.xnow.xolo 

EQUATION  OF  STATF  -  SOUP 

COMMON  C0SQI.S.6I  ,CI  16,6I,C2I6I  ,EMELTIS,S1,EQSTAI6I  ,EQSfC(6l, 

1  EQSTD!6I.EQSTEl6»,EQSTG(61,EaSTH(6),FQSTN(6),EQST5l6l,NATL(2,6l, 

2  MU(6),RHO(6ltRHOSi6l,TENS(6,SI,YAnO(faI,YOI6),JSNDI6l,NPORtfc,2l, 

3  M.NUM.NMTRLS 

EQUATION  OF  STATE  -  POROUS 

CONNON  AM  6  I  , MUPI 6)  tPORAI  4,3),  POftft  I  A,  3 '  ,PORT  (4,31  , RH0P(6,3  *  * 

1  YADDPI4, 31 ,OR£F,RHOPV,MP,NC 
RADIATION  DEPOSITION 

COMMON  SS(3OO,5),SST0P(  51 ,  ST  ART  I  SI  ,  SOUR*,  SSTOPM,  NSPEC. ,  SS  J,  JSS 
COORDINATE  ARRAYS 

COMMON  XI300I ,  C(  300),  CHL  (3001  ,0(300) ,  DHL  I  330  I  ,EHL1 1001  ,  HI  000,11, 

1  NE  MI  TOO) ,  NET  (  TOO  1  ,P!  3'o;  ,  PuL  (  TOO) ,  RI  300 )  ,SI  TOO)  ,SHL  (  300 )  ,  TITOO I  , 

2  Ul TOO  I ,UHL C 300) , YHL I  LNLI300I 

KALFSTEP  VA, 

COMMON  DH,  OMl  AST  ,  DUH,  r  -  ltPH»RH,RHLAST,SH,SHLAST  ,UH  ,UHLAST,XH,  XHL  AST 
IDENTIFIERS 

COMMON  DISCPTIIOI ,  I  PENT,  JE0ITI20),  JREZONt  i  S  ) ,  NDATE I  3) ,  NEO  I T ,  NEDTM, 
1  NJEOIT.NR.NREZON.NSFPRS*  NSPALL  »NTEOT,NTEX,NTRtl5),TED!T(S01 
CONDITION  INDIC*  <S 

COMMON  INF, L INTER, MI RR OR, NORMAL .POROUS, R INTER. SOL  I D,SP ALL 
SPAU  AND  RELAXATION 

COMMON  NSRtM.TSRIE  ,6),USP(50I  .Xl’ISOI  .IRLX.NICK.NEMH.NETH 

DIMENSION  CC(2»  ,0XXUI,ECI20>,HCI20,3),KASSI21I,M0N(20,2I, 

I  PCI  20), RSI  21 1 .SCI  201 , XC I  201 , YCI 201 , ANEMI 20) , ANETI 201 
D1  MENS  I  Of  AMI  20 1 ,  AT  I  20 1 ,  NE  WJEO  *  20 1 

CM..  SECONOI XNOWI 

JREZONINREZON  -HINDI  JREZONINRE  Z  JNI  ,JF  IN) 

IF  I JREZONI NREZONI  ,LE.  J I  NIT  >  GO  TO  900 
IP  ITIME»OTNH  .IT.  SSTOPMI  GO  TO  900 
IF  i7l"iE-.5*0TNH  „GT.  SSTOPMI  GO  TO  2 
TlMF  *?[HE*tl7NH  S  Sl!URM»r,. 

DO  l  J-JINIT.JP1N 
EHLUI^EHL!  JirSSCALHIJl 
TIME*T IME-OTNH  1  SOURMM. 

JLAST*JRFZ0NINREZ0N!-1  t  M-0  >  NJ*  I 

SECTION  l  LOCATE  JREZON  WITH  RESPECT  TO  MATERIAL  AND  JEOITS 


M-N*l 

IF  I JREZON ( NPEZ0NI-J8N0 1  Ml -2 1 6, 3 ,3 

JLAST*JLAS.-1 

NASLASWHL) JLASTI 

MOML  AS  I »0.5  RMASL AST  *111 JL  AST  I 

RSLAST..5*MASLAST*(RI  JLASTURI  JLASTeH)  i  TLAST-T  IJLASTi 
DO  10  !«l,NJEOIT 
NEWJEOIU*JEOIT'  !  I 

**  SET  JOLO,  THE  OLD  COORDINATE  VALUF,  AND  JNEW,  THE  NEW  VALUF 
**  REZONING  OCCURS  FOR  CELLS  BETWEEN  JOLO  AND  JL AS T.  NIOCFLL 
•*  QUANTITIES  ARF  SET  EOT  JLAST-l  WHILE  COORDINATE  QUANTITIES  ARE 
*«  SET  FOR  JLAST. 

JOLO«JNEW  ILAST-l 


t  NCEl  «NPAR f«ft 
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I 


L0C»S1 

WRITE  (18,50001  LOC  .JOLO.JNFW,  JLAST, H.NJ.MCEL.NPART 
C  *•  SET  0*  (CEIL  DIMENSION*  ANO  XN  (COORO  *0  LEFT  OF  NEW  CELL!  FOR 

C  **  FIRST  GROUP  OF  CEILS  TO  86  REIONED 

XN*X(JLAST-ll  *  OX-XI JIAST)-<N 
H«*N-1  *  0XX1NI-0X 

IF  IN  .EC.  It  GO  TO  13 
OO  12  .*t,Nl 

12  DXXj  1  l»0XXINI*SORT(FQSTCIll*RHnS<MI/IEQSiCINI ARNOS!  II  M 

13  WRITE  (18,50151  1 1 ,0XX It), 1*1, N! 

C 

C  ♦*  SAVE  NEN  A HO  HE T  AT  JFOITS  FOR  RADIATION  DEPOSITION  PROBLEMS 
IF  INS  PEC  .EO.  01  GO  TO  80 
00  30  I-*l  .NJEOI T 
JE-JFOITII) 

AMI  l  l»NENt  JE  I 
30  ATIll-NETI JE) 

C 

C  SECTION  2  -  FIND  RF20NAOLE  SET  OF  CELLS 

C 

C  TERMINATION  OF  RF20NABLE  SFT  OF  CELLS  AT  AH  INTERFACE  (PART 

50  IF  IN-11  TOO, 130, 5? 

52  IF  I JOLO- J8H0 1 N— I 1  - 1 )  T<?0,60,130 
60  MPART-1  i  HJOL02*H( JOLO, 2)  t  CO  TO  SOP 
100  JLAST*  JOLO-l 

C  '*  RETURN  WITH  JNEW  SET  TP  J9N0IN-D 

C  CHECK  WHETHER  JEOITS  COINCIDE  WITH  JSNOIN-1)  OR  J9N0IM-1)*! 

00  503  NJ-l.NJEOIT 
IF  IJOLC  .HE.  JE01TINJI)  GO  TO  103 
NEWJEO(NJ)*JNFW*l 
GO  TO  105 
103  CONTINUE 

105  DO  108  NJ*'l , NJEOI T 

IF  (JOLO-l  .NE.  JEOITINJl)  GO  TO  108 
NCWJEOIN.D-JNEW 
GO  TO  125 
108  CONTINUE 

125  HI  JNEW*I,2I»HJ0L02  *  X ! JNEW) *Xi JNEW* 1 

N«N-1  t  JBNOIHJ-JNFW  >  TLAST»T| JOL  D- 1 1  *  JNFW-JNFW-1 

IOlO*JOlO-2  *  XNMIJOLOI 

LOC*125 

RPITE  C8,5G00l  I  OC  ,  JOL  0,  JNFW,  Jl  AST,  N,N  J  ,N'F|.  .NPART 
GO  TO  50 
C 

C  TERMINATION  AT  A  SPALL  WITHIN  MATERIAL  IPART  51 

130  IF  I (HI JOLO, 2)  .EO.  SPALL  I  .uR.  ,HII0LD,2)  .EO.  NORMAL  1 1  155,132 

132  NPART  .5  *  NSP*H( JOLO, 2  I  *  XSAVE-X ( JOL 01  *  USA  VF  *U(  JOID  I 

XI  JOLOI-XSPINSPI  A  U(  J0L0)*USP(NSP1  I  GO  TO  500 
1  AO  JLAST*  JOLO  *  USPI  NSPI -Ul  JNEW*  1 1 

XSPI NSP)*X I JNEW* l I  I  XI J01U)*X3AVE  *  Ut JOLO) »US*VE 
C  RETURN  WITH  JNEW  *COORO  TO  LEFT  OF  SPALL,  JOLD-COORD  AT  SPALL 

HI JNEW*l,2)*NSP 
00  I A2  NJ-l, NJEOI T 
IF  (JOLO  .NE.  JEOITINIH  GO  TO  1A2 
NEWJEOINJ)*JNEW 
GO  m  1A5 
1 A2  t.  NT) HUE 

1A5  JOLO* JOLO- 1 

L0C*IA5 

WRITE  118  5000)  LOC,  JOLO, JNEW,  JLAST, M.NJ.NCEl  ,NPART 
GO  VO  50 

c 

C  TERMINATION  AT  INITIAL  BOUNDARY  IPART  2) 

155  IF  I  JOLO- J I  NIT  I  TOO,  160,255 
160  NPART *2  »  GO  TC  500 

200  00  205  NJ* 1, NJEOI T 

IF  IjCHO  .NE.  JEDITINJ)  I  GO  TO  205 

NEWJEDINJ1*JN6W*J 

GO  TO  800 
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205  CONTINUE 
50  TO  800 
C 

t  TERMINATION  OF  RE20NABLE  SET  OF  CEILS  AT  *  JEDtT  (PART  3> 

255  (F  INJEOIT  .LE.  0)  80  TO  350 
00  264  NJ*UNJEO!T 
IF  (JOLD  .NE.  JE01TINJ1!  60  TO  264 
NPARTO 
60  TO  500 
264  CONTINUE 
60  TO  355 
300  JOLO»JOtO-l 

NEWJEDINJI*JNEW»I 

C  **  RFTURN  KITH  JCIO  AT  THE  JEOIT,  JNEW  TO  THE  LEFT  Of  JEDtT.  HIDCELl 
C  *4  QUANTITIES  HAVE  SEEN  RESET  OP  TO  JNfW*l,  COORDINATE  QUANTITIES 
C.  **  UP  TO  JNEW* 2 

IOC* 300  - 

WRITE  1 16. 5000 1  t OC ,JOL 0, JNEW. JL AST, M, NJ ,NCFL , NEAR T  PRIKT 

60  TO  50 
C 

C  TERN!  NAT  ION  WHEN  NUNBER  OF  REJO*SRLE  01 0  CEL  *  IS  20  IPART  4> 

355  IF  { (XUCASTI-Xf  JOLO)! /DXX I  Ml- 1 R.  I  420,360,360 
360  NPART«4  S  60  TO  500 
400  JOLDttJOLO-i 
L0C-400 

C  •«  RFTURN  WITH  JOLO  AT  PREVIOUS  LOCATION,  JNFW  SET  AT  COORDINATE  TO  THE 

C  **  LEFT.  NIOCEti.  OUANTJT'FS  HAVE  BEEN  RESET  UP  TO  JNEW*l,  COORDINATE 

'  «*  QUANTITIES  UP  10  JNEW** 

WRITE  119,50001  L(X,  jOLO.  JNFW,  JLAST,  M.NJ.NCFL.NPART  PRINT 

CO  TO  50 

420  JCLO*JQlD-l  *  CO  TO  50 
C 

C  SECTION  3  -  CONPUTE  NEW  CELL  COORDINATES  ANO  PROPERTIES 

C 

500  NQ-0 

LOC-503 

WRITE  JIB,  5000 1  1.0t,JOL0,JAEW,JLAST,M,NJ,NrEL,NPm 
510  NCEL«HA*I  HXf  JLASTI-XI  J0L0»!/0XX(M1*.65,  1.) 

IE  I CNCft-i IRINQ-1 I  «E9.  01  CO  TO  610 
C  CHECK  WHETHER  REGION  Of  1. ARCE  CELLS  LIES  TO  tEFT 

601  &XH1N*0XX(MS  t  JL4STP«JtA$T-l 
IOC *601 

WR I TF  (18,50001  LOC, JOLO, JNFW, Jl AST, N,N J.NCEL , NPART 
DO  603  JK* JOLO, JL  AST5 
DELX»Kt JX*lt-X(  JKI 
IF  (OELX-OXNINI  602,603,603 

602  DXNIN*OELX  »  JXN1N«JX 

603  CONTINUE 

IF  I0XNIN-G.8*DXX(N( I  604, 750, 750 

604  JX«J.I>iIN4l 
DO  605  l«JOLO* JXMIN 
JX*JX-l  t  OELX*X(  JXHI-XI  JX) 

IF  (OELX-OXX I Ni )  605,605, 6 OR 

605  CONTINUE  t  CO  TO  610 

608  JOLO*JX*l  i  NPART** 

LOC *60R 

WRITE  (te, 50001  LOC,JOLO,JNFW,JIAST,N,NJ,NCEI, npart 
NQ*l  *  GO  TO  510 
C 

C  BFGIN  CONFUTATIONS  FOR  NEW  COORDINATES 

610  NCEl*NlNO(  JLAST-jniD.NCEU 
OX*(X( JL AST  »-N I JOLO) l/NCfl 
XSTART-XIJLASTl  *  XN*  X  START-OX 
C  **  XN  IS  NEW  COOROINATF  LOCATION 

C  «•  OX  IS  NEW  CELL  DIMENSION 

RSI  1  I-RSIASI 
MOM(I,|>> NONLAST 
NASSU  l«M»  SIAST 
L0C*610 
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WRITE  <18,50021  LnC.,NCEL,XSrART,0X,XN,R5LAST,NASLAST,H0NLA51 

WRITE  (18,56101 

mp.nporin,2i 

no  650  1*1 ,NCEL 

RSI  I *1  I  “MASS  i  1*11  »AMAVG* AMSLP1  «AMSLP2«ENGY»CS*PS*SX»¥S»0. 

HC I I ,1 ) .SOLID 
ANEHS*ANETS«0. 

HCf l.3l«2 

615  IE  IJLAST  .IT.  i)  GO  TO  625 
XENO«AMAXll XI JLAST l.XNi 
IF  (XSTART-XENO)  621,621,619 

619  OMASS«2Hll JLAST 1*1 XSTART-XENOI/ IX! JLAST»1I-X1 JLAST 11 
MASSII*ll»MA$S( 1*1 l+OMASS 
UJ-UIJIAST) 

OIIOIO-UI  JLAST*1I-UJ 
DXOLD*X  l  Jl  AST*1  l-X  IJLAST  I 
XSl«XSTART*XENO-KN-XN-DX 
XS2»XSTART-XENO 

ANAVG»,5*OMASS*IUJ*DUOLn*l  I XSTART*XENO I/2.-X I JL ASTI  1 /DXOLDI*AMAVG 
A*Si.Fi*OMASS/OX*l.25*OUOLD/OXOlQ*XS2*(3  -»XS1*XS2I 

:  *s,.5Tjijj*cH)'UD*ixeNo-xijLASTn/nxoini#xsii  ♦  amslpi 

AMSt  P2»  - J ,  S TOKASS/OX9XS1  ♦  AHSLP2 
ENG¥*FNG/»MASS*EML  I  JLAST  I 

RSI  t*ll«RSI  I*ll*OHASS*(RI  JLAST  1*1  R<  JLAST*1I-RI  JLAST  1 1*  I ITS  TART* 

1  XFNDI/2.-XI JLASTI1/IXI JLAST*! »- *  I JLAST 1 1  I 
PS«PS*DHASS*PHL I JLAST 1 
SX»SX*OMASS»SHi  I JLASTI 
YS*YS*DMA5S»YHL( JLAST) 

CS*CS*ONjSS*eHl(  JLASTI 
ANEMS*ANEMS*DMASS*NEMI JLASTI 
ANETS*ANETS*OMASS*NET(JLASTI 
XSTART.XEND 

JE  I HI JLAST ,11  „FQ.  POROUSI  HC I  I , 1 1 -POROUS 
HCf l,3l»MAX0IMI JLAST, 31, HC 1 1, 311 
621  IF  IXfMO  .LE.  XNl  GO  TO  625 
JLAST«JLAST-1  t  GO  TO  615 

625  XCU»«XN  *  OC-HASSI I*ll/OX  (  EC  1 1  l»ENGY/MASSt  1*11 

YCtll-YS/NA$SM*ll  »  SCIIf»SX/NASSII*ll  *  PC  1 1 (•PS/HASSIl *1 1 
CC 1 1 l«CS/NASSI 1*1 1 

AMSLP*AMSl Pl*2, YAMAVGRAMSLP2/NASS I !♦ 1 1 
MOMI I,2I»AMAVG*AMSLP 
WON! 1*1,1 l»AHAVG-AMSLP 

ANEMIll-ANEMS/MASSI 1*11  *  ANFTI I I»ANETS/KASS1 1*11 

IF  I HC 1 1 , 1  I  .EO.  SOHOI  GO  TO  663 
HC  1 1 , 1 1 “POROUS 

IF  ( EC  11 1  .GT,  EMCL TIM, 1 1 1  GO  TO  660 

RHOPV.FRELTIECI 1 1 ,H) »| RHOPI 5, HP 1-RHOSI Ml  1 *RMOS|NI  /  ( l.*ECII 
1  EQSTAIHII 

IF  (OC  ,LT.  RHOPVI  GO  TO  663 
HCIt.n-SOlIO  »  GO  TO  663 
660  IF  IPCIIl  ,GT.  0„|  GO  TO  663 
PC  1 1  !<*SC  1 1  l*RSI  t  ♦  1  >*n. 

663  K»JNEW»l-l 
L0C*663 

WRITE  (18,50061  l  OC  ,K ,  Xt  H  1 ,0C  , MOM  1 1 , 2 1  ,NOH(  I* l ,  1 1 ,  ECI  1 1 . RSI  I*  1 1 
1  PCIl).SC(n,YCll),HASSU.n,HC(!,ll 
650  XN»AMAXHXN-DX,Xt  JOLOll 
T I JNFW*1 l«TLAST 
»0  6t0  l-l.NCEl 

J»JNFW*1-1  *  CHl(Jl*CC!!>  »  OHll J l-NASSI I* I l/OX 

EHL  I  Jl  *EC(  1 1  t  PMIIJI-PCIII  *  SHI I J  !■ SC  1 1  I 

VHUJI-VCIII  »  ?Hl I J**NAS$I 1*11  *  H!J,ll»HCII,ll 

Nf T I Jl »AHETI  1 1  t  NEMI  J  l»ANf  HI  (I 

01 J*t 1*2. •IHOHII,ll*HOHI  1,211/  IHASSt ll*MAS5< 1*111 
R( J*l I «( RSI  1 1 *RSI 1*111/1  HA SSI11 *HASSI 1*111 
Tl J I ■TENS  I H, 1 1  »  XIJI-XCII1  *  HI J, 2 1 •NORMAL 

HI  J, 3  >*HC  I  1,31 
6T0  CONTINUE 

MOMLASr«HOMINCEL*l,  I) 
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NASLAST-NASSINCElPtl 

RSLAST-RS(NCSLpI)  t  TIAST-MJOLDI 

GO  TO  (680,680,700,700,6851  NPART 
480  R<  JI«RSIN£ELp|>SMASSINCEIpI> 

685  TIJ1-TLAST 

UIJI-2.PN0NLAST/NASL AST 
NON).  AST-NASIASY-RSL  AST-0. 

TOO  CONTINUE 

IOC-700  - 

WAITE  (18,5000*  IOC , JOLO. JNEW, JLAST. H,NJ,NCEL .NPART  PRINT 

C  SET  JNEW  AND  JLAST  IN  PREPARATION  POR  THE  NEXT  TONE  CAltut  .IONS 
JNEW-J-1  (  JLAST- JOLO 

C  RETURN  TO  APPROPRIATE  PART  Op  RETQNE  POR  FINAL  RESETTING 
GO  TO  (100,200,500,400, 140*  NPAAT 
C 

C  RENUMBER  CELLS  WITHOUT  REIONING 

T50  T(JNEW«li«TLAST 
L0C-T50 
TLAST-TIJOLO) 

RSLA$T-.5*2HL(JOIOI*IRl  JOLOI+Rt  JOLOpII* 

WRITE  ( 18, 5" '31 

T52  JLAST-JLAST-l  8  OHL < JNEWI -OHL I Jl AST ) 

EHLIJNEUI-EHLIJLASTI  8  PHL ( JNEVI-PHL I JLAST I 

SHLIJNEWI-SHLI  JLAST1  S  THL  (JNEW1-YHL  I  JLAST  I 

CNLIJNEWI-CHU  JLAST*  t  7WL { JNEWI-2HL I JLAST! 

HI  JNEW,  li«H(  JLAST,  11  I  HI  JNEW,  2 )  "HI  JLAST  ,21 

HASNEXT-ZHLl JLASTI 

UI  JNEWPll»( 2»*H0MLASTpHASNEXT*UI JL  AST, 1 1  * /I HASLASTpNASNEXT I 

NASLAST-HASHEXT 

MOW.  AST-. 5*)QA$LAST*U<  JLAST  » 

R( JNEWPl l-R I JLAST* l I 

TI  JNEWI-TI  JUST*  t  XIJNEWI-XI  JLAST) 

NEHI JNEWI-NE HI  JLAST  I  t  NETI  JNE«I«NEYI  JLAST) 

HI JNEW, 5) -HI JLAST, 5 1 

I- JNEW  I  JNEW- JNEW- i 

WRITE  (18,50031  LOC, I ,X< M .DHL  1 1 1 ,U< I  Pi) ,FhL 1 1> ,R I : Pi » , PHL It  I , 

1  SHL(I).YHLIII,TII!,2HL(II,H4I,II 
IE  ( JLAST- JOLOI  740,755,752 

C  •*  JNEW  IS  TO  LEPT  nF  LAST  RENUMBERED  CELL.  JLAST-JQLD,  THE  LAST 
C  **  010  COORDINATE  RENUMBERED. 

755  CONTINUE 
LOC-755 

WRITE  (18,50001  LOC, JOLO, JNEW, JLAST, M,NJ,NCEL,NPART  PRINT 

GO  TO  (760,760,300,400,7451  NPART 
760  Rl JNEH-t l-RI JLAST I 
765  U(JNEW»1I-2.*N0MLAST/NASLAST 
TIJNEWPll-TI JLAST* 
nOMLAST-MASLAST-RSL  AST-0. 

LOC- 760  - 

WRITE  (18,5000)  l OC .JOLO, JNEW, JLAST, N.NJ.NCEL , NPART  PRINT 

GO  TO  (100,200,300,400,140*  NPART 
C 

C  ERROR  MESSAGE 

C 

790  WRITE  118,10001  NPART, JOLO, JNEW, JLAST ,NJ,JEDIT( NJ) , M.JBNO (Ml  PRINT 

CALL  EOOUMP  t  LSUBI7I-S  8  CALL  SCRIBE  8  STOP 
C 

C  ENDING  ROUTINE  -  INTEREACE  AND  BOUNDARY  ADJUSTMENTS 

C 

BOO  JINIT-JNEWM  8  HI  JINIT.2I  -HI  J0LD.2 1 

IE  (HIJINIT.2I  .EQ.  SPALL)  Rl JIN1TI-SI JINITI-PI JINITI-O. 

00  BIO  J-JINIT, JP IN 
UHLI JI-.5*(UI Jl PUt  J*1 1 » 

$( J*l )-.5*ISHl( JIpSHLI JPl > I 
PI  JpI  l-«5*(PHLI JlPPHl I Jp 1 )  I 
810  CIJI-CHLIJI 

00  829  N-I,NMTRIS 
ja-JBNOINI  8  HI J8, 21-1  INTER 
SI  JII-SHUJi-tl 
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suiut'SHiijani 
PI  jei»PW.(J8-lt 
PI  J8*ll«PHltJB*ll 
IF  t Ml  J8*i ,21  .£9.  SPALLI  8 15c  S16 

815  At ja*n*«i jbi»o.  t  go  to  ezo 

816  l!J8*l  1»RI J8}*.5*IRI J8*l  1  *R1 JB I I 

UIJi*l)»UIJB!*U'{  JBS«ZHl(JR-ll*UtJ8*l>*ZHLI  .|B*l  I  I/I  ZKLI  JB-ll* 
l  ZNLIJ8*tll 
820  CONTINUE 

00  825  I'l.NJEDIT 
825  JED  IT! 1  l«N€MJ£OI 1 1 

IF  1NSPEC  „E9.  01  GO  TO  840 
DO  830  I»1 iNJEOIT 
Jtf»J£0ITt  1 1 
NENIJEI«AN<!1 
830  NETI JE1-ATII1 
840  CALL  EDIT 

CAU  EDOUMP 
900  CONTINUE 

CALL  SEC0N0ITW1XI  8  DUR* TWI X-XNOW 
WRITE  118,50101  JINITcOUft 
RE TURN 

1000  FORMAT  I25M  ERROR  IN  REZONE,  NPART® 1 3 ,6H  JQL0*I3.6H  JNEW»I3, 

1  TM  JLAST«I3,4H  NJ-I3.UH  JSO STIHJ l«S 3, 3H  N-13.9M  J8NOIN1U3I 
5000  FORNAT  (13H  RE  ZONE •  LOC*I3.7H,  J010»13,TH,  JNEW*I3,8M,  JL AST* 1 3* 

1  4H,  N»I3,5H,  NJ*I3,7H,  NCELM^.SM,  NPART=>I31 

5002  FORMAT  !13H  REZONE.  LOC*!3.7H.  NCEL*I3,9M,  XSTART«E  10. 3,5H,  t)X*. 

1  E10.3.5H,  XN-EI0.3.9M,  RSLAST*E10.3, 10H,  MASLAST*E10.3, 

2  10H,  N0MLAST-E10.3I 

5003  FORMAT! 21 5 ,10E10.3,3X,A1I 

5004  FORMAT  1215, 1P10E 10. 3, 3X.R1 I 

5010  FORMAT  1 19H0EN0  REZONE,  JINIT- 1 3. 17M,  TIME  In  REZONE *E 1 0. 3, 3K  SECS) 


5015 

FORMAT I21H  REZONE, 

OXX 

VALUES 

, 6118,89. 

611 

5610 

FORNAT 

1  EC 

21 

FORMAT 

1RII411 

I120H  LOC 
RSI  1*1 1 

J 

XC 

PC 

DC 

s: 

MON! 1,21  MOM! 1*1,11 

VC  MASS! I* 1 )  NCII.ll 

5750 

I120H  LOC 
PHI 

J 

X 

SHL 

DHL 

VHL 

011*11 

T  ZHL 

Ft* 

MU, 11 

21 

ENO 
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FUNCTION  SSCAL  US) 


I  INCLUDES  ENTRY  SSCALH) 

CO  ’UTES  RADIANT  ENERGY  FOR  DEPOSITION  IN  EACH  CELL  DURING  THE 
HYDRODYNAMIC  COMPUTATIONS 

•  SSCAL  COMPUTES  FOR  COORDINATE  POINTS 

*  SSCALH  COMPUTES  FGR  HALFSTEP  POINTS  AND  INITI ALI ZES  ENERGY  IN 
NEN  ZONES 

REAL  MATL.MU.KUH.MUP.NEM.NET 
INTEGER  H 
C  MISCELLANEOUS 

COMMON  CEF .CKS.OAVG.OELT 1M.OOLO. DRHO, DTMIN. DIN, DTNH.DU. OX, EQLO.F , 

1  FIRST, J, J CYC S.J IN  I T, JF IN.USMAX.UST  AK.JTS.LSUS (111 .MAX PR 1 1 1 1 ,  N. 

2  NC  YC  S . NPE RN, POLO, RL AST , SLAST , SMA* , TF , T IME. TJ.TS.ULAST, UOl  D , 

3  XLAST .KNOW, XQLO 

C  EQUATION  OF  STATE  -  SOLID 

COMMON  COSQ(6,6),Cl(6,6l,C2!6>,EMELTI6,SI,EOSTA(8l,EQSTCI6), 

1  EQSTOI6) , EQSTE 16 ) .EQSTGI 6) ,  EQSTHI6)  .EQSTNt  6) . EQSTSI 6 ) ,MATL 12,6), 

2  MUI6 1 , RHOI 6 1 ,RHOS l6l.TENSI6.3I , YADQI 6 1 «Y0{6),JBND(6) , NPOR ( 6 , 2  I , 

3  M.MUM.NMTRLS 

C  EQUATION  OF  STATE  -  POROUS 

COMMON  AKI6I.NUPI6I  .PORAI  A,  3 1  ,POAB  I  A.  3 1 ,  PORC  U,  3 1 .  RMOPI 6, 3 1  . 

L  YADOPIA.3 ) ,OREF .RHOPV.MP.NC 
C  RADIATION  DEPOSITION 

COMMON  SSI 300.S I , SSTOP IS  I , ST  ART  I  SI  ,  SDURM, SSTOPM.NSPEC.SSJ.JSS 
C  COORDINATE  ARRAYS 

COMMON  XI 300 1 .C I  300 1 ,CHL 1 300 1.0(300). DHL ( 300) , EHLI  300) , Ml  300 , 3 1 , 

1  NEMI  3001,  NET!  300),  PI  300),  Phi.  I  300  I  ,RI  300)  ,  SI  300 ) ,  SHL I  300 1  ,T  I  300 ) , 

2  U I  3001 ,UHL( 300) ,YHL (300 ) , ZHLI 300)  < 

C 

DIMENSION  LI  10) 

C  i 

c  i 

SSCAL  *0.  1 

IF  I NSPEC* I SDURM- ! . )  .EQ.  0.)  RETURN 
IF  (TIHE-.5*0TNH  .GT.  SSTOPM)  RETURN 
DO  1  1*1,10 
I  L ( 1 1 *0 

Ull-S 

C  ENERGY  ADDITION  AT  COORDINATE  POM’S 

10  00  20  1*1, NSPEC 

IF  (ITtHE-STAATU>)*ITINE-.5*OTNH-SSTOPU)>)  12,20,20 

12  SSCAL-SSCAL*.S*SS(JS.I l*AM!Nl( AMIN1I.SPDTNH.TIME  -  1T»RT||) ), 

1  SSTOPt I1-T|ME*.S*0TNH) 

20  CONTINUE 

GO  TO  TO 

C  ENTRY  FOR  HALFSTEP  CALCULATIONS 

C  *****•••*****•****••**•*•*•*» 

c 

ENTRY  SSCALH  ENTRY 

SSCAL*0. 

IF  (NSPFC  .EQ.O)  RETURN 
IE  US  .GT.  JSS1  GO  TO  SO 
IF  (SOURM  .EQ.  1.1  RETURN 
IE  I  TIME-0 TNH-.5PDTN  .GT.  SSTOPM)  RETURN 
DO  *2  1*1,10 
62  L  1 1 ) *0 

It  II >60 

C  ENERGY  ADDITION  IN  ACTIVE  ZONES  -  HALF  STEP 

DO  AS  I  *1, NSPEC 

IF  II T 1ME-.SP0TNH-STARTI II  I P I T IME -OTNM- .S*DTN-SSI OP  II) ) I  66,68,68 
16  SSCAL  * SSCAL  »SS ( JS , I  I  *  I  AMI  Nil SST 0P( 1 1 , T IME- .S*DTNH I - 

l  AMAX1 1  START  I  I ) . T IME-QTNH- . S*0 TN I  I 
*.8  CONTINUE 

GO  TO  TO 

C  ENERGY  ADDITION  FOR  NE  M  ZONES 

SO  JSS*JS 

UZ)*SO 

OQ  60  I  *1  .NSPEC 

IF  (  nw.E-.SPOTNM  .LT.  START)  |  )  I  GO  TO  60 

SSf Al* SSCAL *SS( JS.i 1 P| AM1N1I SSTOPI 1 1 , T I NE-.SPOTNM) -  ST AR Tl II) 

60  CONTJNUf 

TO  IF  ( t.  SUB  1 6  I  .GE.  MAXPRI  6) )  GO  TO  ?S 

XAIH  U8.SOOO)  SSCAl.LIII  ,1  12)  . 

LSUB(6)-LSUBI6)*I 
?S  RETURN 

SOOO  FORMAT  I  SX,  6HSSCAL  *E  10.  3H  L*2I3I 
ENO 


FUNCTION  SSCAL  (complete) 
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SUBROUTINE  RELAX ! SC » ICON ,YCLD ,SDG »0T ,TRLX ,CRO,CO£F, YAD.N, J,TY, 

1VNCT.INSRI 

C  IMS  VERSION  CONTAINS  STRESS  RELAXA7ICK  PCDELS  1  AND  4 
OIKENSICN  JR  120 1 
RKR-0 

ICO**  ICON  S  YNEk-YCLO  *  1*0 
IN*PAX0I2, INSRI/2 
IF  I  ICON -SO. 2) It,  1 

C  IF.IIAl  CONOITICN  CUTSIGE  CF  ELASTIC  20NE 

1  11  $  jO  TO  14,21  IN 

2  XPYaf XP  I-0T/1YI 
KRRaRKK»l 
JKIKKKI-2 

YNEfc«YNCT* IYCLD-VNCTI9XFYaAiSI COE F)*T Y/CT*I 1 •-XPY  l*.i*tl>.«SIGNIl«, 
1CRC)*SICNI  l.tSOOl) 

YAVG  •  I  YWEk»YCLOI/2«  S  VSTAR  *  S  ICN I YAVC, SCO  I  *  CO  TC  5 

4  Y'TAR  •  SICNIVOLC.SOC) 

(RRaKKMl 

JKIXX!  >4 

5  XPO»EXPI-DT  j  IRLX I 
*RR«RRR*1 
JKIKKK 1*5 

SO  *  YSTAR  ♦  ISOC-YS!ARI*XFO  ♦  COE  MTRl>  /O  .  *  I  I  .-XPC  J 
C  CH'CK  IF  OEVIATOR  CROSSES  INTO  EL*SIIC  2CNE.  IF  SC.  RECALCULATE  RELAXATION 
IF  fABSISOl.GI.VNEk.ANC-'ICM  1.  ,5C  I  .EC.  S ICM  1 SCO  130,6 

6  TC  *  I S IGN I YNEk, SOO 1-SOC t / ( SO- SCC ) *DT  t  1*2 
*N**XXK«' 

vA(RKK)-& 

GO  TO  (4,71  IN 

7  YNEk*YNOT*IYClO-YkCTI*£XH-TC/TY> 

KKX*XN,  >1 

JMRKRW 

YAVS  -  IYNES»,YCLC)/;.  S  YSTAR  •  S IGN (YAVG ,X0C I 

9  XPC  *  EXPI-.C/TRIXI 
RRR»RXK*t 

JKtXKK 1*9 

SO*YSTAR*IS0C-YSTARI»XP<-»C0EF*TRLX/CT»ll.-XPCHCCEFC»(0  7-TC)/0T 
C  CHECK  IF  DEVIATE  CROSSES  CVER  !MC  C1HER  SiCE  CF  2CNE 
IF  CABSISOI.GT.YNEklU.lC 

10  lt>...  -  2  »  L*3  I  CC  TO  3J 

11  IF  ISIGMi  .,S0I.EC.SIGN(1.,SCCI)30.12 

C  RECALCULATE  TINE  CURING  NH1CF  RELAXATION  CCCLHS 

12  TK  •  ISO  SI£N<VNEk,$OC))/(SO-SIGMVNEM,SCC>>*ICT-TC)  U*4 
RRK*KRR«1 

JK 1KKX 1*12 
GO  1C  I2S,;3II* 

13  XPY'EXPI-TK/TYJ  *  YNOLC-YNlk 
YNEk.YNCI,tYNEk-YRCT)*XPV**eSICCEF>*TY/CT*l l.-XPY) 

YAVG  -  IYNEN..-NGLC1/2.  t  YS IAR  •  SICMYAVG.SO)  »  GC  TC  2S 
C  NOk  CONSIOER  INITIAL  CCNDITICNS  1NSICE  ELASTIC  CONE 

IB  SO  *SCC  ♦  CCIF 

KKR*KKK«t 
JRIXXXJ-IS 

C  CHECK  IF  DEVIATOR  CROSSES  TONE  9CLNCARY 

IF  IABS I  SOT  «GT .VCLC  )  19 ,3S 

C  CHANCE  CONOITICN  VARIABLE  AND  RECALCULATE  CEVIATOR  kITH  RELAXATION 

19  YSTAR  -  S IGNI VCLC, SCI  I  L*J  S  1*  !  SC-Y S TAR  I / ISO-SCC )*CT 
RKX*KKX«1 

JKIRKK1 • 19 
GO  TO  1 23,20  I  IN 

20  YNEk*YNCT*ABSUCEFI«IY/OT*ll.-E>PI-lK/TY)» 

KKX«KKK»1 

JK(RKKJ*20 

YAVG  *  IYNEk«VNOI)/2.  »  YSTAR  •  S IGN IYAVG ,SD I 
25  ICCN  •  2  •  IF l X  I  SIGN  I !•  ,SOI  I 
KRK-KKRM 
JXIXKX 1*24 

SO  *  YS7 A*  *CCEF*TRlX/OT*l 1-E »P I- TK/TRL > I) 

JO  CO  TO  111,  IS  I  IN 

r  RECALCULAI E  YIELD  STRENGTH  TC  ACCCLNT  FC*  STRAIN  FARCENINC 
t  YNEk  -  ANINIIABS<SOI,YCLD«YAO*ABSICAC)) 

XKK.R**»1 

JMKMT-JT 


SUBROUTINE  relax 
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IF  (VNEk.Eti.ABSISOM  32,33 
«  ICCM2  *  ft*  10 
KKK«KKK«1 
JIIU«I>32 
39  CONTINUE 


RKK»KKK«1 

JK(KKK)<39 

49  CALI  SSmOU.ISkTCM 

Mt*»KKK*l 

JKUKK)>49 


SO  ID  <50,48tISN*CH 
90  POINT  I0«,  N,  J,  U  ICON,  ICON, 
POIM  IttUKII.  •!, KKKI 
90  yCLOVNEN 
MILAN 

•  I  FOMAT  <19*  PATF  IN  RELAX  241*1 

100  FORMAT! IN  N>,I3,3H  J»,13,4M  »»U 
1E1I.4.4H  TO  ,Ell.4,2l,3HY0L  ',f 
ENC 


SOC,  so,  YCIC,  YNEM 


.12, 6H  ICCK-.I1.IH 

•  4.4F  10  , E 1 1 .4, AH 


SUBROUTINE  RELAX  concluded) 


CCEF 


.11, 4H  SO 
C0EF«,£11. 


348 


•  <# 


nornnonno 


SUBROUTINE  BANCRLMSC,  ICON,YNCT,SCC,CT,i.riC,CCEF  ,RECR-YAC,N,J,Tl,T2 
1, BEE, VR. GEE, ERS, NR,  NT  ,INSR> 

THIS  VERSION  CONTAINS  BOTE  8  ANC  *N0  CUBAN  RELAXATION  RCOElS 
FOUCNINC  TABLE  CIVIS  COAAESPCNCEKE  OF  CCRRCN.  f  AN  CAL  X  VARIABLES 


CCRRCN 

NS” 

TSAUI 

(2) 

1 II 

1 A 1 

(SI 

161 

N (EP 

NET 

(ANC 

2 

Tl 

T2 

BEE 

VP 

CEE 

EPS 

NM 

NT 

gilran 

1 

CEE 

PM 

BEE 

VR 

(NPC 

- 

nn 

CAR 

NOTE.  NEON-NUN,  YAO-VAOO,  INSR-N5R 

NER  AKO  NET  ARE  RCEILE  ANC  TOTAL  C1SLCCATICNS 
CAM  IS  PLASTIC  SHEAR  STRAIN 
JK  IS  A  PATH  INDICATOR 
Cl  PENS  ION  JRI201 
REAL  NECN ,NN  >NT  ,NRC ,NTO 
RKR-0 

1CCR  •  ICON  A  YNOTG-VNOT 
NIC  -  NT  «  NPC  »  NR  t  SC-SDC 
NIT-A 

L-0  A  ENT*FLOAT  IN  IT  I  AIT-0 
SI CHN  •  SICNI1..SCC! 

IFI  ICON.EO.2llf  1C 
C  INITIAL  CONOIT ICN I  IN5I0E  ELASTIC  20NE 
1  SO-  SCOfCOEE 

KRK-KKK*1 
JR  I  ARK  >1 

U  <ABS(SO).«T.YNCTI2,15 

C  CEVIATOT  LEAVES  ELISTIC  TONE.  CALCLLATE  RELARA1ICN 

2  L  -  1 
RRK-KRRU 
JKUKKI-2 

S  •  „S»(ABSISOC»CvEF)-YNCTI 

CELT  -  ISC-SICNI VNGTfCOEF I ) /I  SC- SOC  )*GT 

SICHW-  SICNIl .  iCCEF) 

ENT-  I.  A  SC- SCO 
SO  TO  AC 

C  INITIAL  CONCITICN  QUTSICE  OF  ELASTIC  2CNE 

10  1.-2 

RRR-RRRti 
JMRKK  )« 10 

IT«IT*1  AS0I-SC*CCEF/I2.«ENTI 
S— ABSfi  SCIl-TNOI  A  OELl-OT/EM 
IF  I  S.LE.O. I  it  •  1 1 

C  AVEAACE  OtVIATON  NfNAIKS  OUTSIDE  ELASTIC  2CNE .  CALCULATE  RELAXATION 
II  l-l 

JRR— RRR*I 
JKIKRRI-U 

IFIS1CNN.EC.SICNI l.,SCII)«OflT 
11  IFIASMSOI.GI.YNOIIIA.IA 
LA  l-A 

RRK-KRRM 

JRIRRNI-IA 

IMS  5R  :  .SCl.fC.SKNNMS.tA 

C  Of VI  TOr-.  RETAINS  CUTSIOE  ELASTIC  2CNI  AFTER  RELAXATION 
IS  l-l 

RAA-XRK, t 
JRIXRRI-1S 
IPI1T.CC.NITI  10,10 
U  St>$ei-(0(F/(i.HNll 

RRR-NRKA1 
JRI MXI— It 
IT  l-A 

KRA-XRRH 

JRIRRKI-IT 

C  Of  VIATOR  REENTERS  ELASTIC  2CRE.  RECALCULATE  RELAXATION 

IB  S  -  .JAIABSI  SOI-VMII  ATI  TAR  •  S  UR  (VAC  T  .SCC  I 
RRR-RKRAI 
JRIRUI-IB 

Ct-  4 -I  VSTRR-SO I2CQ(P*0T 
CC  TC  4B 

IS  SO-SCtCO«F/fNX*RlOATINIT-llt 

RRR-KMAI 
JBIRRRt-lS 

M>  IABSISOI.CT .TACT  121,10 
20  ICON  •  2 


SUBROUTINE  BaNORLX 
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KKK-KKUM 
JRIKXM*20 
CO  10  35 

C  DEVI ATQII  CROSSES  CVER  TO  CMCS1TE  SICE  Cf  ELASTIC  TORE.  RECALCULATE  AELAXTN 

21  IE  ISICNtl.,SCI.EC.SICM*>  6C  1C  JC 
MX-KKF.l 
JRIRKKI*2l 

SICHI  •  -SICHN  I  1*3 
CEIT  •  (SCVSTARI/CGIFRCT 

s  •  .5*uasisoi-vfcaT) 

SO-SO-CCEE  *  EM*  I* 

40  MC*4.*m/J./S 

HMMMI 
JR(*F*>-40 
If  IARG.CT.2C142.43 

42  ARC  *0.  4  CO  TO  45 

43  XPO  -  EXRI-ARC) 

JKIXKK  1*43 

43  CO  TC  1*3,71, 72HASR 

C  PERFORM  RELAXATION  CALCCtAUCN!  -  CARO  PCCEl 

Tl  TR-N7 

RK«*KF«*1 

MT*NT*tEPS<*FERS*IN7-W>-1.7I2»NN*>RC  I»EEIT 
W»*IW«ICEf»S*(TR-M»-U./n«l  ./T2i»NR»X»0«CELT 
SC  TC  7* 

C  PERFORM  RELAXATION  CALCULATION!  -  CllRAA  FCOEl 

72  CEI-'l  t  RKl*T2  *  OAMO*SEE  »  CA»*CANC-«NT 

R«R*iWK»» 

JRCFAR  1*72 

M*-AAIMi:4|I.«CII*tAl»l*EXPI-P»  J4CAFI 
74  SO-M*CCEF/f  AI-REC»iTEF«VM»fC*CE‘uT«S  UEA 

XRR  *„*♦! 

JK|KKX,*T4 

73  60  TC  123,13.13.  11,33.  I*. iSH 

23  1CCA  -  *~IF|X(SICN(t,,S£)l 
AKX-RRR.L 
2«lMtKI*2* 

C  RECALCULATE  3  jflC  S7RENCI*  IN  CASE!  CF  <IRA|N  MARQEAINC 
36  VNCl*  *  AMINI  UtS(SCl,TXrT»TAC»AlSURtl> 

FARaKRMI 

JM'FV!*30 

IT  (TMOT.ee. ASSISrn  32,33 

32  ICON. 7  4  l*  L*« 

NX«*AKC»1 

.K.'(P«R3*»2 

33  .ONIhtii 
XAX«X*M  a 
-MMRFRJ-J* 

03  70  (SS.^I.TIIIAST 

74  CGAP  *  *6>USC0*CrE»-SC»/ME0k 
Rf*5*»»«;«vCCAM 

XAFMLV-vl  I  JN<*A«I*74 
73  CALL  $S*rCM*»l$.'tCPI 

X»«*K*««1 
J*(4«R»*T» 

w  to  itc.oc;  URIC* 

to  PR* NT  »l,‘.\WII)v|,  1.R3RI 

HMI  110,  J.ARC  .PE  ,URO,Oc  .7 
«£  Tt  (3?, 43, ATI  IMJf 

<3  MRIM7  lOO.M.J.t  ,IC<r.,ICa*,SOC,  5S.CC77  .-AtT.AFl.NP.NU.NT 

«0  70  30 

•  7  PAINT  101 ,N> J.L ,  ICO*  ,  ICON,  S20 ,  i  C ,  4F  .VACt.SAK.S4R.AR 

30  73  U  RN 

*3  PRTMT  ,,V,fNSR,l 

KH>» 

tt  FORMAT  U7N  RFtP  I*  ERaCRC ,V , *3 1!  I 

1W  *a»»At;*f  A*. II, IN  A*«I*«*M  L*.»2.AN  1C*. 11,1* — II, W  S0-.TSC.3, 

13*  -  ,410.3, IN  T»,7fC,!.AH  HR*  >t  1C  .3,1H- ,t  13  L3  ,4M  NT*, 

;it0.t.lA**.tM.3> 


SUBROUTINE  BANOKlX  (co«.,rsv*d> 


2-*>0 


10>.  **,13,3*  J*.13.3f-  L-,i2,*£  )  C  -  .  1 1 .  1 1- ,  11 . 4H  SD*.£1C.3. 

13*  -  ,UO,3,3h  C*,£1C.3,3H  »*.flC.3.5»<  1 *  M  ,110. 3  .  II—,  E  10. 3, 

24*  **.,£10.3) 

110  fCMH  13*  >,EIC.3.'*-  **(.«,£  1C.3.E*  (K>,f  11  .3,5*  CRO.E10.3, 
UH  0£ll*,El0.3> 

1<M  £C»*AT  1 25*  E»*C«  <*  *AHC)»l.>,l*;it  *  IS,?*,  L  *  ’5) 

ENC 


SUBROUTINE  SANDRLX  (concluded) 


5U6ROUT  INf  BAUSCHI  1 1 ,  SOO  ,SD  ,Y  ,VN£T  ,Y  AC  ,CRC  ,Cf  EFL  ,XPQ,  XP,  NUL  ,N,  J, 
IRC.XUU.YAOF I 
REAL  NU.NUL.NUU 
DI  HE  NS  I  ON  Jl (20) 

KKX«0 

00  SO  X-l  ,20 
90  JLIXI-0 

0Y»7AC  »10R*I  IYOR«Y  3C0EF-CCEFL  IEHU-CV  ISCAY'O.  IHU»NL'L 

CCEFU»CC£F*RUU/NU 

IF!  I.LE.2)  CO  TO  2 

OY»YAOF*YAC  1XU* FUL«PUU  t  COEF*COEfU 
KKK«KKK4l 
JLIXXX1»Q 
3  S0»5CC»CCEF 

KKK«KXK4l 
JLIXXXI-3 

GO  TO  110,9, 10, IE, G9, IP !  ( 

9  IFItSFO.GE.l.  £2)6,1 

C  DETERMINE  EFFECTIVE  SHEAR  MODULUS  AND  STRESS  CEVIATCR  FCR  !MTU1  LCACING 

1  £RU»RL*(OY*RC-RL)«<AeS(SCC/YI  ) • » A F C 
KKX>RKK«1 

JL1XXKI*! 

SDSV«AMINl< Y,SCC4CCEF*EPU/XL/2.) 

EMU«MU»10r*SC-XU:t(A6S(SCAV/Y) l*»XFC  i  SC*SCC*COlf»ERU/«L 

6  IF  I SO.CE .Y ) 2, 7 

7  IF  1CR0„LT«.0.»«,30 

9  Pl«PLL«NUU  IDY-YACMYAC  ICCEF-CCEFC  SCO  TC  2C 

2  Y«A*!NnABS!30),Y*(SC-n/{SO-SOC)*OY«A8£<CRf.))  ISO  5 ICM  V  ,  SC  I  » I*  1 

KKX*KKK4l 

JL  ( XXX) “2 
CO  TO  30 

C  STRAIN  HARDENING  FATE 

10  IF  I  1SICNI1,  IF  1M0RCM. £6,2-1  111,19 

11  IF  IA8S(S0).GT.YI12,30 

12  Y»AXIN11ABS(SCI  ,Y»CY*A8S(0RC) )  I  SC*SICMY,SG>  I  GC  TC  30 
14  I- 1  *  3  IMU-PUL-MUU  ICV-YACFAYAC  ICCEF»tC£fU  )(C  TO  ir 

C  (AUSCHINGER  EFFECT  FATE 

II  IF  ll.EQ.*.ANO.CRO.GI.C..CR.I.££.4.AXC.CRC.LT.C.)19,2C 

19  1*10-1 

XKX-XXX*! 

JLCXXXl-19 

20  EMU*MU4tDY»R0-MU*(Afli(  .9*  .9*  S  IGM  1  .  ,CRC  i»SCC/Y)  l»«XR 
XXX«XXX*I 

JL  I XXXI *20 
SO-SCO*COEF*EMU/MU 

SOAV«ANAXl(-Y,lSC*SCG)/2.)*FCOAI(3-I,<2  )«ANIM(Y,IS0  4SD0)/2.I»FL0AT 
111/2-21 

ENL«NL»IIIY»RC— FU)«(ABS(.5*.5«SICN(  l.  ,  CRO  )»  5CA  V /Y  )  )»»XR 

SC*SCO*COEF*EMU/ML 

If  (ABSiSQ).GE.YI22,30 

22  Y-AH!NllAeS(SC),Y,iSC-SICN(Y,SC))/(SO-JCC)*OY»ABS(ORC) ) 

XKX-XKK41 
JLI XXX) «2< 

SOS  IGNI  Y.SOJ  »  l*I-XAXOi  I  ,4  ) 

30  CALL  SSNTCH3,!$UTCH 

XXX«XXX*1 
JL(XXX)«30 
GC  10  140,50  II SMTCH 

40  PRINT  tO.N.J,  10R,),S0C,S0,Y0R,»,CCEF,EXl,CRC,S0AV 

PRINT  11 , 1 JL I X I , X* 1 , XXXI 
90  RETURN 

99  PRINT  ICO,  1  ,N •  J  t  RETURN 

10  FORMAT  I JH  N«,I3,1F  J-.I3.3F  I- , 1 1 , 1H-, 1 1 , 4H  S0*,E1C.3,4H  1C  ,E10.3 

1 ,3F  Y*,£9.3,4M  TO  ,E9.3,6H  COEF* ,EI0.3,4H  PU-,E9.3,5H  DflC*,E9„2,6H 
2  S0AV-.E10.JI 

■  1  FORMAT  I1TH  PATH  IN  BAUSCHI  231 9 1 

too  FORMAT  i  1 9H  H  IS  hRCNG,  H»,I2,)F  N»,13,3F  J-.I3! 

ENO 


2900* 


iaOBROUTINE  BAUSCHI  (complete) 


252 


SueRnur INS  PUF  PLO>  (  M Exp,  IDENTP) 

C  THIS  SUBROUTINE  DIRECTS  THf  PLOTTING  PROCEDURE 
COMMON  IDENT,N,NJEDIT,JEOIT16),XJEC<  7( 

COMMON  /PLOT  7  [PLOT, IFPLOT 161 , 1DUM1 16 > 

CALL  SECOND  (BEG) 

NTEX  =  NUXP  A I  DEN  T  =  I  CENT  P 

A"'ME*tOH  L.  SEAMAN  t  CHARGE -10H6736-2  A  X  T  F  N=  6HX-  358  T 

C  XEROX 

CnlL  HEADER  ! ANAHE, charge , xieni 
IF  ( I F  PLOT  I  I  I .FC.OI  GC  TO  1 
CALL  TPinlSINTEXT 
PRINT  20 

1  PE  AO  <71  N.NJEOIT,  <  JEOITi  I)  ,I--Ii6l ,  IXJEDI  1  1,1  =  1  ,6) 

MM1NQIN-2,  1000) 

IF  I IFPLOTl 2) -EO.O)  CO  TO  2 
CALL  HISTORY  APR  I  NT  21 

2  IF  <  IFPLOT  <  i )  MFPlOT  <6!  *IE  PLOTI  8)  .EC.Ci  CC  TO  6 
CALL  HUGONIO  i  PRINT  22 

6  CALL  SECOND  (END)  t  CL'.".  -  END- DEC  A  PRINT  25,  DOR 
RETURN 

20  FORMAT! 16H  TPLOTS  CALLED) 

21  FORMA  T ( 1 5H  HISTORY  CALLED) 

22  FORMAT! 15H  HUGONIO  CALLED! 

25  FORMAT  131H  TIME  TO  COMPLETE  PLOTTING  IS  ,  F10.3.8H  SECCNDS! 

END 


MAIN  PLOTTING  SUBROUTINE:  PUFPLOT  (complete) 
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SUBROUTINE  HISTORY 

_C _ IKli  ROUTINE  PRODUCES  STRESS  VERSUS  IINE  HISTORIES  FOR  JEOXTS  AUB  INTERFACES 

COMMON  IDENT'N.NJEOIT, JEOITIft) .XJEC!6) iS( 1000,61 ,SIFI 1000,3). 

1TLABEL (31 , SLABEL! 3) ,T ITLE 1 31 
COMMON  /PLOT/  I  PLOT , If PLOT  16) ,L INES , JOUMi 3 1 , INC! 9) , IFLAG 
DIMENSION  TUQ001  .SEOVI  1000,9) 

EQUIVALENCE  (S.SEQV) 

_ _ SMAX-SMIN-O.  3  IFS*0  %  4T»0  A  0816*0. 

IF  UFL AC.LY.OI  IFS-1  »  IFLAG-IAB  '  IFLAG) 

DO  2  1*1, N 

READ  IT)  T<  D.ISIFI  i,J)  ,4'  1,  -..,($<1,41,4*1,61 
DO  2  4*1,9 

IF  UNG<4)  .EQ.O)  GG  TO  2 

_ SKAJL*  AMAULXSM  AX  T£QV1I,J1)  t  SMI  M*  AMI  NX  t  SMIN.SEQVII,  > » I 

2  CONTINUE 

TKAX-tlN)  >TMIN*mi  INARM" 0  RI3LANK*0 
C  INDIVIDUAL  HISTORIES  PLOTTED 
C.NCOOE  1 30. 212.  TL  ABEL) 

DO  30  J*l ,9  i IN* 4-6 

_ IF  CIMGlJI.EQ.Oi  CC  TO  34 

IF! J.'  E.6)  GO  TO  8 
ENCODE  130,211, SLAB EL ) 

ENCOOE  (30,210,TITLEI^i\,IDlNT 
GO  TO  9 

B  ENCOOE  <30,213,T!TLE)X4ED( 4I.I0ENT 

_  ENCODE  <30.216. SLABEL) JEOITIJi 

4T*4T»l  *  4AO-4-4T 

9  PRINT  260. ITITLEIMi ,M*1, 31, TNI N, TMAX, SNIN, SMAX 

CALL  L INSET! TMAX, TMIN, SMAX, SHIN, TLABEL, SLA8EL , TITLE, LINES  I 

IPEN-0 

DO  10  1-1. N 

_ IFjLASSI SEQV 1 1,J I ) ,GT •  1£-3*SNAX I  IPEN-1 

CALL  II NPL TC T ( 1 1 , SEQVI 1,4) .MARK, IPEN) 

10  CONTINUE 
CALL  PENENO 

30  CONTINUE 

IF  (IFLAG.LE.lt  GO  TO  90 

i _ SEVERAL  JED! Y S  PLOTTED  ON  ONE  GRAPH 

ENCOOE  ( 30, 2  i  1 , SLABEL I 
ENCOOE  (30.215,T|Tl£)I0ENT 

PRINT  260,  (TITLF(MI,M*  1,31,1.' ’IN, TMAX, SMJN.SMRX 

CALL  UNSET  (  TMAX , TMI N. SMAX ,  SMIN,  TLABEL,  SLABEL,  T  I  TL E.L  INES ) 

CALL  LINPLT  ( ON IG.OR IC. MARK, IBL ANK ) 

C*1  *  K-0  »IFLAG*MIN0(!FLAC,N4E0ITI*4A0 

DO  60  4*1. IFLAG 

IF  (INGI4) ,£0.0)  GO  TO  60 

If  (4. "Q. IFLAG)  GO  !0  62 

00  3S  10-1,5 

IF  (INGC4H0I.NE.0)  GO  TO  62 
J5  CONTINUE  I  PRINT  260,4  I  RETURN 
62  M*L 

OC  S3  l*N,N 

IF (K.EQ.O. ANO •$( I, 4), LT. IE- 3* SMAX) GO  TO  55 
K*l  I  IFIJ.FQ. IFLAG)  CO  TO  5* 

IF  (L.NE.M)  CO  TO  66 

IF  IS<  I,J*I0I.GT.lf-3*SNAXH«l 
66  IF  ( IFS.EQ.l  168.66 

66  IF  <$II,4>.LT.1.05*S(I,4»I0>)  GO  TO  56 

61  If  II.IO.NI  GO  TO  5* 

56  CALL  LINPLT  I T< I) , S 1 1 , 4 ) .MARK , IPEN I 
55  CONTINUE  1  CO  TC  60 

36  CALL  LINPLT  ( T( LI , S IL , 4* 101 .MARK, I 8L ANK I 
60  CONTINUE 

CALL  PENENO 
90  RETURN 

210  FORMAT  1 1 7HINTCRF ACE  STRESS  II, 8H,  I0ENT-I6I 

211  FORMAT (30H  STRESS  IK  I LOBAKS )  J 

2 ! 2  FORMAT ( 30H  TIME  (MICROSECONDS)  I 

213  format  (irrwrrroRr,  x-f/.s.bh  cm.  io.iai 

216  FORMAT  j 15MSTRESS  IN  CEIL  .I3.12H  (KIL08ARS)  I 
215  FOANATI 26H  HISTORIES  AT  4EDITS  ID  «,I6) 

260  FORMAT  I TH  PLOT  — ,  3A10.6H  T*,F8.4,6H  TO  ,F8.4,4H  S*,F9.4,4H  TO  . 

IF9.4I 

230  FORMAT  (24H  COMBINED  PLOT  ERROR,  4* ,  III 
ENO 


PLOTTING  SUBROUTINE:  HISTORY  (complete) 
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8 

10 


12 

C 


21 

22 

23 

28 


15 

17 


18 

20 

30 

C 

32 

40 

c 

42 

30 

2.0 

211 

212 

213 

218 

240 


SUBROUTINE  HUGONIC 

7H1S  ^n«E^0DUCC^C8*PH^0F  STRESS.  RESULTANT  STRESS.  AND  CUTOUT 

CONNON  19£NT,N,NJEQIT,J£01T<61, XJEDI 6) . S< 1000,6 ) .VI 1000.3 ) . 
lSLAS£L(3>,VLASEl(3),T!TLE(3i,VNAXI3>,VNlN(3),  VPMAX1  3) , VPN  INI  3) 

CONNCN  /PLOT/  I  PLOT » IFPLOT  (6 1  ,1.  INE  S.  I  DUN  1 1  3  ) 

OINENSION  VP(1000,31 
00  1  1  *  1 v  N 

READ  !S1  (V(l,j),J»l,31,(VP(I,J),JU.3l 

NARK=0  ft  Ln 1 

ENCODE  (30,210,  VLAMU  * 

00  5  J*  1 , 3 

VRAX( J)*VMIN( J)*V< l.JI  ft  VPN AX U 1 x VPN  IN (J )= VP  (  1  '  *1 
00  5  X  *  2 1 N 

VMAX(  JUANAXl  IVMAXI  J)  ,V(  I ,  ,||  ft VPKAX ( J 1  *  AHA T 1 ( VPNAX 1 J ) , VP ( j , j) ) 

VN1NI  JJ.AHINlfVNlNCJl.VU,  J))  tVPKlN(  JI*AM1  N1  (‘/PRIM  J )  ,  VPI  I ,  J ;  ) 

CONTI NUE 

IFUFPL0TI3I.E0.0I  CO  TO  30 
IF(  IFPL0T(2i.NE.0l  GO  TO  10 
REAO  STRESS  FROM  TAPt 
or.  »  j-i, N 

REAO  IT!  T 1  .(  S(  ( ,J|  «  J  *  1 . 6 )  .F1.F2.F3 
NP*NIN0(NJ£01T, 1FPL0T1L  *2 1  I 
SNAX*SMIN=0 
OC  12  J*1,NP 
DO  12  I  *1 ,  N 

SNAX*AMAX1 ( S  MAX , S ( 1 , J 1 )  ft  $N I N* AN  IN  1 1 SN IN , S 1  I , J )) 

CONTINUE 
PLOT  HU30NIOTS 
CC  20  JM.NP 
CO  TO  (21,22.231  L 
ENCOOE  (30.211*  SL  ABEL  I  JEO’TIJ) 

ENCOCE  ( 30, 212 , SL ABEL  I  JEOIT(J) 

ENCOOE  (30,213,5. ABEL  I  JEOlTtJ) 

ENCOOE  ( 30? 21 5, TITLEI XJEO( J 1, I  DENT 
1FU.CT.3)  CO  TO  IT 

PRINT  240, ( T I TtEl HI ,N« 1 , 3) , VHINI J) , VNAXI J),S«(N,s>,«, 

oSLi8SM!J‘TJpe^:^o!i-;fT,SM,N,vtmL's'*5tl*  mE<LlNEs' 

CALL  L  INPLT (V(I,J!«S(!«J|, NARK, (PEN)  AGO  TO  20 
j— 3 

PRINT  240,  (TITLE!  Ml.NM  ,3  ),  VPN!  MK  1 ,  VPNAX  IXJ  ,  SN|N,  SNA 

co  is  1=!"*  r?PeNl;^S!7ii!;r*x*SM,N'VLA8eL*SLAOCL*T,TtEeL,Mei' 

CAU  L!NPLT(VP(I,k1  ,su  ,  Jl,  PARR,  |  PEN) 

CALL  PENEND 
GO  TQ  (30.40,80)  L 
IF  I  IF  PLOT  14) .EC, 01  <  ^  TO  40 
REAO  RESULTANT  STRESS  FRON  TAPE 
L*2  ft  00  32  1*1, N 
REAO  (91  (  S( I.JI ,J*l,6) 

GO  TO  10 

IFIIFPLOKSI.EO.OI  GO  TO  30 
READ  OEVIATORIC  STRESS  FRON  TAPE 
L*3  ft  00  42  .  * l , N 

READ  (HI  (S(1,J‘,J-1,61 

CO  TO  10 
RETURN 

FORNAT  ( 30H  SPECIFIC  VOLUNE  (CN3/ORAN3)  1 
FORNAT  (1SHSIRES5  IN  CELL  ,13, 12m  (KU08ARS)  > 
rORNAT  1 19MRESUL  TAM  STRESS  J*,I3,8H  (KBARS1I 
,ORNAT  (19HSTRESS  OEVIATOR,  J*,I3,8M  (KB*RSI) 

FORNAT  (8HHUG..  X.FT.4.I1H  CN,  I0ENT-I4I 
FORNAT  (Th  PLOT  , 3A10,4H  V*,F8.3,4H  TC  .F8.5.4H 

1 F  9 . 4  1 
NO 


ft  GO  TO  25 

S  GO  TO  25 


S-.F9.4.4H  TO 


PLOTTING  SUBROUTINE:  HUGONlO  (complete) 
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usrluiine  momwftiu 

£  UiJS  ROUrUtE  PRODUCES  STRESS  VERSUS  DIS'aNCE  GRAPHS  FOR  DESIRED  TJEQIIS 
COMMON  IDENT.XI300. 15:.S(  300, 15 ) , XL ABEL (1 ) . VI  ABEL ( 3 ) , F I TL £ (3) , 
lNPf(lij,XJB(6! 

COMMON  /PLOT/  (PLOT, IFPLOTIB), LINES, IT, NT, IFLAG, lOtml  10! 

NT-KI  NO  IM  ,151  3LT-MINQIM£X,IT  +  NT-I1  {  IG-D 
MARK-0  *  IPFN-l  *  18LANK-C  t  IFS*0  i  $NA-SNI-0. 

If  '.IFLAU.LT, 01  IFi-1  *  IFLAG-  1A8SI  IFLAG) 

C  INDIVIDUAL  TEOITS  PLOTTEO 
i.  iCODE  t  30  *211*  XL  ABEL! 

DO  100  I-I.NTFX 

READ  (71  ..TEO.NC.TIME.NPTS  INPTS  l-NPTS*  1 
IF(  IT.Lf.NTEO.ANO.NTEO.i  f  .LT)10,90 
LO  IG-IG«l  S  NPKIGI-NPTS 

00  13  IP-l.NPTS 
READ  (7)  x(  IP. IGl, Si  IP, 10) ,R 
IF  t(P.EO.l)  11,12 

11  XWIN*X( IP, IC)  i  SMAX*SN1N-S< IP.IGI 

IFIlC.EC.il  XMINl-XMIV  t  GO  TO  1) 

LZ  XMAX-XI I», IG) 

SMA  X- AMAK 1  (S  MAX, S(1P, Id)  S  SMI  K<  AM  I  N  1  (  SM  IN  ,  S  (  I P  ,  I  C)  I 
13  CONTINUE 

ENCODE  (30, 210, TITLE)  1C, TIME,  I  OEM 
ENCODE  <30,2)2,SLA8£DNC 

SMA  =  AMAX1  (  SMA,  SMAX  I  t  SM I  -  AM  I MISP  l  ,  SM  IN) 

PRINT  2 AO, (TITl£fM),N<l.3),XMIN» XMAX , SMI , $MA 

CALL  UNSET  (XMAX,  SKIN,  SMA,  SMI,  XLA8EL  .SLA8EI  ,  TITLE,  LINES) 

CALL  L1NPLi(X(1«IG),S11«1G), MARK,! BLANK) 

00  15  IP-2 ,NPTS 

13  CALL  LINPLT  ( X< I P , IG ) . SI  IP, IGl .MARK , IPEN) 

READ  (7)  NN.IXJSiMl  .M-1,41 
IF  (NM.LE.OI  GO  TO  80 
00  70  P-l.NM  t  xe-XJ8(rt) 

CALL  UNPLT(X8. SMI, MARK, I8LANK1 
SINCR-I  SMA-SMU/T5.  %  SB-SMI 

00  TO  IN-I, 73  *  INK-MQOI IN, 2)  »  SB  SB*$lNCA 

TO  CALL  LINPLT  ( XB. SB, MARK, INK  I 
JLO  CALL  PENENO  3  GO  70  190 
90  00  91  I  P<  1 , NPT  S 1 

SI  Mt AD  in 

100  CONTINUE 

1FUFLAG.LE.1)  GO  TO  130 
C  SEVERAL  TEOITS  PLOTTED  ON  ONE  GRAPH 

If  (1G.IT.2I  CO  TO  145 
IGPLCT-MNOI  IFLAG.  IGl 
IBEG-1 

103  FMCOOF  (30,220, I 1TLEI I8EG, IGPLOT, iOENT 
ENCOOE  (  30. 221, SLASH) 

PRINT  240, (TITLE  I MI.M* 1,3), XMIN, XMAX, SMI, SMA 

CALL  LINSETi  XMAX,  X*?N1,  SNA,  5M1,XLA8EL,SIABU,  TITLE, LINES) 

CALL  UNPL T  (  X 1 1 ,  l )  ,  S  (1 ,  1 1 .  MARK,  1 8L  ANK  ) 

LP-MP-l 

00  130  L-IBEG, IGPLOT 
MP-MPTRI 
DO  120  1P.MP.NP 
IF  (IFS.EQ.1I  120,115 
115  IF  ILP.NE.MP.0R.L.EC.1G1G0  TO  I’D 

IF  IMIP.ll. L  T..9*SM*.AN0. S(IP, LMI.C1.-, (IP,  11*1.051  LP-IP 
120  CALL  LINPLT  (X(IP,ll,S(IF,LI,MARK,IPENI 
IFU.EC.IGI  GG  TO  130 

CALL  LINPLT  (XILP, 1*1). SILP.Ltl), MARK, I8LANK) 

PP-LP 

130  'ZHf (NUE 

CALL  PENENO 

IF  IIGPLCT  . GE.  IG- 1 1  CO  TO  150 

IBEG- ! GPLOT  ♦  I  %  IGPLOT-IGPIOI‘MINO(1FL»G,IG-IGP|OTI 
GO  TO  105 

145  PRINT  146 

130  pfturn 

146  FORMAT  <?»M  ONLV  ONE  TEOIT  GRAPHEOI 

210  FORMAT  (3HTF0ir,l2,lH,FT.4,MH  MUSECS  10-141 

211  FORMAT  (30H  POSITION  (CCNTIMETEPSI  I 

212  FORMAT  (15HSTRFSS  AT  r VCLC , 14, I lH  (KILOBARSII 

220  FORMA  I  IBM  TEOITS  12, 6H  THRU  12. 8H,  I0ENT-I4I 

221  FORMAT  (IOM  STRESS  IKH0SRRS1  ) 

240  FORMAT  I TH  PLOT-- , 3A10.4H  X..F8.4.4H  TO  .F8.4.4H  .',F9.4,4M  TO  , 

IF9.4I 
END 


PLOTTING  SUBROUTINE:  TPLOTS  (complete) 


APPENDIX  II 


QUASI-STATIC  AND  ACOUSTIC  DATA 

1 .  I  ntroduc  lion 

As  an  adjunct  to  the  dynamic  measurements,  a  series  of  quasi-static 
acoustic  measurements  were  made  to  assist  in  characterizing  the  metals 
studied.  The  purposes  of  these  tests  were  to  determine: 

•  the  quasi-static  moduli  and  yield  strength, 

•  the  variation  of  quasi-static  properties  with  specimen  thickness, 

•  the  difference  in  quasi-static  properties  measured  parallel  and 
transverse  to  the  direction  of  rolling, 

«.  the  effect  of  testing  speed  on  the  quasi-static  properties,  and 

•  the  effect  of  the  sign  of  the  loading  (tension  or  compression) 
on  the  properties. 

For  these  purposes  an  extensive  test  program  was  laid  out  for  the  five 
alloys  under  study.  The  scope  of  the  quasi-static  experiments  is 
partially  indicated  by  the  listing  of  specimens  in  Tables  13  and  14. 

Both  tensile  and  compression  tests  were  performed.  Some  compression  tests 
were  conducted  on  all  three  directions  (parallel  and  transverse  to  rolling, 
and  thickness)  of  the  material.  Tensile  tests  were  conducted  over  a  wide 
range  of  thicknesses  and  at  three  testing  rotes  for  one  thickness. 

2 .  Test  Descriptions 

a .  Tensile  Tests 

The  tensile  tests  were  conducted  on  the  usual  dog- bone-shaped  test 
specimens  i nst rumented  with  either  strain  gages  or  an  extensometer .  Two 
sets  of  tests  were  performed:  one  series  at  several  thicknesses  but  a 
constant  testing  speed  of  0.03  in. /in. /min.  and  a  second  series  at  a 
single  thickness  but  three  testing  speeds  (0.5,  0.05,  and  0.005  in. /in. /min) . 
The  second  scries  was  instrumented  with  both  longitudinal  and  transverse 
strain  gages  so  that  Poisson's  ratio  could  be  determined. 

The  tests  were  generally  conducted  with  a  continuous  recording  of 
load  and  deflection  so  that  Young's  modulus,  the  yield  strength,  ultimate 
strength,  and  breaking  strength  could  be  determined. 


Table  13 


ALUMINUM;  NUMBERS  OF  SPECIMENS  TESTED 


A1  loy 

Thickness 

Compression 

Tensile 

(in.) 

mm 

g 

± 

Th 

* 

V 

T,r  ^ 

6061 -T6 

1/16 

2 

2 

1/8 

2 

2 

2 

3/16 

2 

2 

1/4 

3 

3 

2 

(9) 

(9) 

3/8 

2 

2 

1/2 

2 

2 

4 

2 

2 

3/4 

1 

1 

1-1/4 

1 

1 

3 

1 

1 

2024-T8 

1/16 

-  -  ; 

. 

2 

2 

3/32 

2 

2 

1/8 

2 

2(9) 

2(9) 

3/16 

2 

2 

1/4 

3 

2 

2 

3/8 

2 

2 

1/2 

2 

2 

3 

2 

2 

|  3/4 

1 

1 

1-1/4 

1 

1 

4 

1 

1 

Parenthetical  numbers  refer  to  tests  conducted  at  three  testing  speeds. 
Other  tests  were  conducted  at  a  single  speed. 


Parallel  to  rolling. 

^  Transverse  to  rolling. 
* '!'h ick ness  direction. 
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Table  14 


TITAN lift:  NUMBERS  OF  SPECIMENS  TESTED 


Alloy 

Thicknest' 

Compression 

Tensile 

<(in,) 

m 

Tr  ^ 

Th  * 

P*  ; 

Type  50A 

1/1« 

■ 

i 

i 

1/8 

■ 

1 

(3) 

(3) 

3/16 

i 

1 

3/8 

1 

i 

2 

1 

1 

3/4 

i  I 

3 

1 

1 

1 

■ 

l 

\ 

4 

1 

1 

T1-6A1-4V 

1/16 

f 

* 

i 

1 

i 

1  j 

1/8 

\ 

4 

(3) 

(3) 

1/4 

1 

4 

n 

1 

1 

3/4 

1 

1  1 

.3 

i 

1  ! 

( 

1-1/8 

1 

; 

1  | 

•4  ■■  j 

i 

i 

\ 

1 

Ti-13Cr-llV-3Al 

1/16 

i 

! 

i 

! 

i 

j 

1  ! 

1/8 

4 

(3) 

(3) 

1/4 

1 

1 

:3  j 

■  1  | 

1  j 

3/4 

1 

1 

3 

T 

1 

"  1  •; 

1-1/8 

1 

1 

4 

1 

l  i 

Parenthetical  numbers  refer  to 

tests 

conducted 

at  three 

testing 

Speeds . 

Other  tests  were  conducted  at  a  single  speed. 
* 

Parallel  to  rolling. 

^Transverse  to  rolling. 

^Thickness  direction. 
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b.  Compression  Tests 


The  compression  tests  wore  conducted  on  dog- bone- shn pod  specimens 
similar  to  those  for  tonsion  tests  and  at  the  rote  of  0.05  in. /in. /min. 

The  thick  portions  at  the  .onds  of  the  specimens  were  provided  to  give 
lateral  support  to  prevent  buckling.  The  spocimons  were  instrumented 
either  with  an  extensomoter  or  n  pair  of  longitudinal  strain  gages. 

The  tests  were  conducted  until  buckling  occurred  or  until  the 
capacity  of  tho  mnchlno  was  reachod.  It  is  believed  that  nil  the  exhibited 
yield  data  represent  yielding  of  the  material  and  not  premature  buckling. 

c.  Thickness  Compression 

Specimens  about  1  inch  thick  were  manufactured  for  oetermi ning 
properties  in  the  thickness  direction';  The  specimens  were  formed  bv 
stocking  together  a  number  of  1  inch  square  coupons  from  each  shoot  of 
material.  Strain  was  measured  with  an  extensometer  recording  the  overall 
compression  of  the  specimen.  These  specimens  were  loaded  at  0.05  in. /in./ 
min. 

The  1  uad-def lection  curves  show'  an  initial  soft  portion  as  the 
coupons  comprising  the  specimen  are  being  brought  into  contact,  then  a 
straight  elastic  region,  and  finally  yielding..  [Post-yield  behavior  was 
not  interpreted  for  these  tests. 

d .  Acoustic  Tests 

Dilatational  and  shear  velocities  were  measured  on  1  inch  square 
coupons  from  each  of  the  materials.  The  tests  were  performed  for  the 
thickness  direction  on  all  specimen  thicknesses,  and  in  all  three  directions 
on  specimens  over  1  inch  thick. 

3 .  He  ;ults  of  Quasi-Static  Tests 

A  total  of  234  static  tests  was  conducted  on  specimens  of  the  three 
titanium  and  two  aluminum  alloys  to  characterize  the  materials.  Average 
magnitudes  of  the  elastic  properties  determined  from  the  test  program  are 

listed  in  rabies  Id  and  Id,  and  the  results  of  the  parameter  studies  are 
given  in  Tables  \1  and  18.  For  the  titanium  there  was  considerable 
vnr lability  imong  results  from  samples  of  different  thicknesses;  the 
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Table  15 


TITANIUM  DATA  FROM  STATIC  TESTS  (AVERAGE  VALUES) 


Alloy 

Young’s 
Modulus  * 
kbar 

(psi  x  103) 

PlnSt ic 
Modulus* 
kbar 

(psi  x  103) 

Yield 

Strength* 

kbar 

(psi  x  103) 

Ultimate 
Strength  ' 
kbar 

(psi  x  103) 

Poisson’s 

Ratio 

Type  50A 

1070 

66 

3.5 

4.1 

0.26 

(15,500) 

(960) 

(50) 

(65) 

T1-6A1- JV 

1210 

7 

9.5 

9.6 

0.29 

(17,500) 

(100) 

(138) 

(139) 

Ti-13Cr-llV-3Al  1040 

6 

9.3 

9.4 

0.27 

(15,100) 

(80) 

(135) 

(136) 

* 

Coefficient  of  variation  (standard  deviotion/mean  value)  about  2  percent  for 
samplos  of  a  single  thickness. 

t Slope  of  line  from  yield  point  to  lpercent  strain.  Highly  variable;  negative 
values  wore  obtained  from  alloy  Ti-13Cr-llV-3Al  in  many  tests. 

$ 

An  offset  of  0.2  percent. 

§  Obtained  from  peak  of  stress-strain  curve  before  decrease  to  breaking. 
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Table  16 


* 


ALUMINUM  DATA  FROM  STATIC  TESTS  (AVERAGE  VALUES) 


Alloy 

Yount,  a 

ijc 

Modulus 

kbar 

(psi  x  103) 

Plastic 
Modulus  ^ 
kbar 

(psi  x  103) 

Yieid 

Strength 

kbar 

(psi  x  10“) 

Ultimate  ^ 
Strength  ' 
kbar 

(psi  x  1  O'3 ) 

Poisson's 

Ratio 

6061-T6 

710 

103 

2.8 

3.1 

0.32 

(10,300) 

(1490) 

(40.7) 

(45.1) 

2024-T8 

745 

32 

4.4 

4.9 

0.33 

(10,800) 

(460) 

(63.6) 

! 

(7.1.0) 

*  Coefficient  of  variation  about  1  percent  for  specimens  of  a  single 
thickness. 


t  Average  slope  of  stress-strain  curve  from  yield  to  1  percent  strain. 

*  0.2  percent  offset;  coefficient  of  variation  up  to  1.6  percent  for  one 

thickness  and  direction  of  rolling,  up  to  6  percent  for  all  thicknesses 

8 

Coefficient  of  variation  of  °  7  parcent  or  less  for  one  thickness  and 
direction  of  rolling,  3  percent  or  less  for  all  thicknesses. 


STATIC  TEST  PARAMETER  VARIATION  FOR  TITANIUM 
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coefficients  of  variation  (standard  deviation/mean  value)  of  the  yield  strength 
Y  and  ultimate  strength  U  were  usually  about  5  percent  and  in  some  cases  10 
percent.  This  difference  is  attributed  to  real  variations  among  specimens, 
despite  the  special  care  taken  in  acquiring  material  of  controlled  quality. 

The  aluminum  exhibited  a  coefficient  of  variation  of  1  to  2  percent  for 
tests  at  a  single  thickness  and  3  to  6  percent  for  tests  at  all  thicknesses. 

4.  Elastic  Constants  from  Acoustic  Velocity  Measurements 

Acoustic  velocity  measurements  were  made  with  samples  of  the  aluminum 
and  titanium  materials  to  determine  the  elastic  constants  of  the  materials 
at  nominally  zero  stress  levels.  The  tests  were  conducted  by  transmitting 
longitudinal  (compressional)  and  shear  pulses  through  thin  specimens  and 
measuring  the  transit  times.  These  transit  times  were  then  used  to 
compute  Young’s  modulus  E  and  Poisson's  ratio  V  for  each  material. 

i  ie  equations  used  to  determine  the  elastic  constants  are  the  usual 
ones  for  linearly  elastic,  homogeneous,  isotropic  materials.  The  samples 
did  not  qualify  ar  isotropic  because  their  properties  were  different  in 
the  three  principal  directions:  parallel  to  rolling,  transverse  to  rolling, 
and  in  the  thickness  direction.  These  differences  were  small  however,  and 
were  neglected  in  the  analysis.  This  neglect  is  testament  to  the  assumption 
that  wave  propagation  in  one  direction  is  but  slightly  affected  by  aniso¬ 
tropy  in  the  ether  two  directions.  With  the  assumption  of  isotropy  we 
can  compute  longitudinal  and  shear  acoustic  velocities  CL  and  Cg  from 
the  travel  times  of  the  waves  through  the  samples.  These  sound  velocities 
are  related  to  the  elastic  constants  as  follows: 


(1  -  V) 


(106) 


/\.  _ l_ 

y  0  2(1  + 


(107) 


where  p  is  the  material  density.  Equations  (106)  and  (107)  can  be 
solved  for  E  and  V  ,  obtaining 
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<C  /C_)3  -  2 

v  „  S — -  (108) 


2(1  +  V) 

c/p 

(109) 

(1  -  22/) 

(1  +  W  ~  2  „ 

(110) 

(i  - 

V)  ~  CL.  P 

The  measured  acoustic  velocities  and  the  elastic  constants  derived 
therefrom  are  exhibited  in  Table  19  for  the  five  alloys  tested. 

The  elastic  constants  calculated  from  the  sound  velocities  are  not 
directly  proportional  to  these  velocities  but  are  related  in  a  complex 
manner  to  the  square  of  the  velocities.  Because  of  this  complicated 
relationship,  it  is  not  obvious  how  the  uncertainties  in  the  measured 
velocities  contribute  to  uncertainties  in  the  elastic  constants.  The 
following  analysis  represents  an  attempt  to  define  the  uncertainties  in 
those  constants,  based  on  estimated  uncertainties  in  the  measured 
velocities. 

The  probability  distributions  for  the  longitudinal  and  shear  wave 
velocities  were  assumed  to  be  normal  for  convenience  in  the  analysis  and 
for  lack  of  a  better  assumption.  The  probability  density  functions  for 
all  the  variables  a*e  certainly  continuous  functions.  For  simplicity 
in  the  analysis,  however,  we  approximated  distributions  of  the  velocities 
by  a  small  number  of  points  with  equal  probability.  The  points  were 
selected  so  that  the  means  and  standard  deviations  of  the  discrete  and 
continuous  distributions  were  equal.  Selected  points  were  obtained  by 
dividing  the  continuous  distribution  into  10  intervals  of  equal  proba¬ 
bility,  that  is,  with  equal  areas  under  the  probability  distribution 
curve.  With  this  formulation  we  obtained  10  discrete,  equally  probable 
values  for  each  of  the  two  wave  velocities.  We  can  combine  these  to 
form  100  equally  probable  values  for  each  of  the  elastic  constants. E 
and  V.  The  resulting  values  of  E  and  V  form  discrete  approximation^  to 
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ACOUSTIC  VELOCITY  MEASUREMENTS 


the  desired  continuous  distributions.  Calculations  were  made  using 
nominal  values  for  C  and  C  . 

Li  b 

The  coefficients  of  variation  (standard  deviation  divided  by  mean 

value)  of  C  and  C  were  ass.  >med  to  be  1  and  2  percent  respectively.  The 
L  S 

resulting  coefficients  of  variation  for  E  and  V  are  given  in  Table  20. 

The  mean  values  of  both  the  elastic  constants  coincide  with  those  computed 

from  the  mean  values  of  C„  and  C  .  The  coefficients  of  variation  are 

L  S 

somewhat  larger  than  those  for  either  C  or  C  .  In  general,  we  can 

Li  b 

probably  obtain  E  and  V  with  somewhat  less  precision  than  we  can  obtain 
either  of  the  sound  velocities. 

Table  20 

ILLUSTRATION  OF  VARIABILITY  OF  ELASTIC  CONSTANTS 
DERIVED  FROM  ACOUSTIC  MEASUREMENTS 


Measurement* 

Mean 

Coefficient 
of  Variation^ 

(%) 

$ 

C  (mm/ Msec) 

L 

6.0 

1 

C  (mm/ fisec)  * 
b 

§ 

E  (kbar) 

3.0 

2 

720 

3.14 

0.333 

2.81 

^  3 

C^  and  Cg  are  arbitrary;  density  W8S  taken  as  3  g/cm  . 


t  Coefficient  of  variation  -  standard  deviation/mean. 

*  Assumed. 

§ 

Computed. 
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5 -  Titanium  Properties  Tests  by  the  Manufac t urer 

The  manufacturer,  Titanium  Metals  Corporation  of  America,  supplied 
a  list  of  test  data  for  eacn  thickness  of  the  titanium  alloys.  Chemical 

analyses  showed  about  0,11  percent  0  for  all  three  types  and  0.02  percent 

2 

N  in  Ti-13Cr-l 1V-3A1  titanium  and  0.01  percent  N  in  the  other  two  types.  The 
tensile  test  values  supplied  are  shown  in  Tables  21,  32,  and  23,  For  the 
Type  50A  (pure  alpha)  titanium,  three  samples  of  each  thickness  were 
tested  and  all  values  reported  in  Table  19.  The  variation  of  yield 
among  the  three  samples  at  each  thickness  was  studied.  The  coefficient 
of  variation  (standard  deviation/mean  value)  at  each  thickness  varied 
from  5  to  12%.  There  was  a  clear  trend  toward  decreasing  yield  strength 
with  increasing  thickness;  average  yield  values  varied  from  54,000  psi 
down  to  47,000  psi. 

Only  average  strengths  from  several  tests  were  reported  for  T1-6A1-4V 
and  Ti-13Cr-llV-3Al  titanium.  However,  these  were  differentiated  *>y 
direction  of  rolling.  For  the  T1-6A1-4V  alloy,  the  yield  strength  was 
cor  'stently  3000  to  4000  psi  higher  when  tested  transverse  to  the 
direction  of  rolling  than  for  parallel  to  rolling.  There  we,  a  clear 
trend  of  decreasing  strength  with  increasing  thickness.  The  Ti-13Cr-llV- 
311  alloy  was  also  stronger  in  the  transverse  direction  than  parallel  to 

ft 

the  rolling  direction.  The  yield  data  of  this  alloy  varied  considerably 
from  sheet  to  sheet  so  that  no  trend  of  strength  variation  with  thickness 
could  be  established. 


Table  21 

MANUFACTURER'S  DATA  FOR  TYPE  50A  TITANIUM 


Thickness 

(in.) 

Yield  Strength 
(pai  x  103) 

Ultimate  Strength 
(pai  x  103) 

Elongation 

(%) 

0.0625 

56.0,  40.8,  57.3 

70.6,  68.7,  71.6 

28.0,  26.5,  28.0 

0.125 

49.9,  48.1,  58.1 

66.4,  65.8,  66.8 

27.0,  27.0,  29.0 

0.1875 

47.6,  60.7 

72.8,  72.5 

26.5,  27.0 

0.375 

46.5,  44.3,  50.3 

68.5,  67.2,  70.2 

32.5,  31.0,  34.0 

0.750 

44.5,  40.8,  49.1 

65.0,  63.8,  66.4 

36.0,  35.0,  37.0 

1.0 

46.5,  42.9,  52.3 

68.0,  65.5,  69.6 

54.5,  53.0,  56.5 

Average 

49.7 

66.0 

34.6 

2 


Table  22 


MANUFACTURER'S  DATA  FOR  T1-6A1-4V  TITANIUM 


Yield  i 
Parallel  1 
(psi  : 

Strength 

1  Transverse 

K  103) 

Ultimate  Strength 
Parallel  1  Transverse 
(pci  x  103) 

Elongation 

Parallel  |  Transverse 
(%) 

—  \ 

0. 0625 

134.7 

137.7 

141.5 

146,0 

14.0 

l - 

12*0 

0.125 

132.5 

144.7 

136.6 

145.7 

15.0 

15.0 

0.250 

133.7 

138.0 

139.1 

142.6 

16.0 

14.5 

0.750 

126.8 

130.9 

134.3 

137.4 

15.0 

15.5 

1.3  25 

121.9 

126.1 

129.3 

131.9 

13.5 

16.5 

Average 

129.9 

135.5 

136.2 

140.7 

14.7 

14.7 

* 

Parallel  and  transverse  refer  to  the  direction  of  rolling. 


Table  23 

MANUFACTURER'S  DATA  FOR  Ti -1 3Cr-l 1 V-3A1  TITANIUM 


Thickness 

(in.) 

Yield 
Parallel  | 
(psi 

Strength 
|  Transverse  * 
x  103) 

Ultimate  Strength 
Parallel  j Transverse  * 
(psi  x  103) 

Elongation 

Parallel  |  Transverse  * 

(1) 

135.7 

- 1 

131.7 

138.8 

20.0 

14.5 

0.125 

129.8 

132.2 

135.2 

137.7 

21.0 

17.5 

0.250 

130.6 

137.8 

141.1 

146.8 

24.0 

12.0 

0.750 

126.8 

132.0 

131.8 

139.6 

24.0 

16.5 

1.125 

125.3 

129.5 

132.3 

136.6 

18.5 

13.5 

Average 

127.8 

133.4 

134.4 

139.9 

21.5 

14.8 

Parallel  and  transverse  refer  to  the  direction  of  rolling. 
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6. 


Discussion  of  Quasi-Static  and  Acoustic  Results 

The  elastic  properties  of  aluminum  developed  from  the  quasi-static 
tests  agree  with  those  from  the  acoustic  tests  to  within  1  or  2  percent. 

A  similar  comparison  for  the  titanium  alloys  shows  that  the  values  of 
Young's  modulus  agree  within  3  percent  for  the  Ti-6A1-4V  and  Ti-13Cr-llV~3Al 
alloys  but  that  the  acoustic  modulus  is  10  percent  high  for  type  50A.  This 
difference  may  indicate  that  the  modulus  decreases  gradually  with  loading 

of  moini  aining  a  conr^e-t  -odulus  up  i.o  the  yield  point.  The  values 
of  Poisson's  ratio  derived  from  the  acoustic  tests  are  up  to  20  percent 
higher  than  those  derived  from  the  quasi-static  tests:  this  disagreement 
has  not  been  explained. 

A  comparison  of  the  manufacturer's  test  results  and  our  data  shows 
that  there  is  good  agreement  for  yield  and  ultimate  strength  for  type  SOA 
titanium.  Our  values  for  yield  strength  are  about  3  percent  higher  for  the 
Ti-6A1-4V  and  Ti-13Cr-l 1V-3A1  alloys  but  the  two  sets  of  values  for  ulti¬ 
mate  strength  agree  very  well. 

Our  yield  “trength  data  on  Ti-6A1-4V  are  about  25  percent  below  those 
of  Maiden  and  Green  (Ref, 8)  for  the  same  . ange  of  strain  rate.  This  difference 
suggests  that  there  were  important  differences  in  the  metals  tested  by  the 
two  organizations,  although  both  sets  had  the  same  no.  >nal  composition  and 
were  fully  annealed.  The  increase  in  the  yield  strength  was  about  3  percent 
per  decade  of  strain  rate  according  to  the  results  of  both  organizations. 

Our  Jesuits  for  6061 -TP  agree  with  those  of  Maiden  and  Green  (Ref. 8) 
in  exhibiting  a  yield  strength  of  41,000  psi  and  no  at-rai**  rat*1  iiect. 

The  quasi-static  measurements  have  shown  that  the  aluminum  alloys 
arc  not  st i  ain-rate-dependent  in  the  range  of  testing  speeds  used.  The 
titanium  alloys  show  a  rate-dependence  of  strength;  This  rate  effect 
<ould  lead  .o  a  variation  of  the  Hugoniot  elastic  limit  in  shock  experi¬ 
ments.  The  noted  sampl e-t o-sampi e  variability  in  properties  strongly 
suggests  that  any  test  series  should  be  conducted  on  material  of  a  single 


sheet . 
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